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LET YOUR BBC MICRO 
TEACH YOU TO 
PROGRAM 


by Tim Hartnell 


Introduction 


Welcome to this book on the BBC Microcomputer. Even if you knew 
nothing about computers and programming when you begin, you 
should end up with quite a degree of knowledge by the time you finish 
working through it. And if you already know some BASIC, you should 
know even more by the time you turn the last page. 


I’ve assumed that you don’t know anything about programming, so 
some of the material in here may seem a little simple to you. | make no 
apology for this, as there is a time in all our programming lives when 
we know nothing. We have all had to start from square one at some 
stage or another. 


| suggest you read through the material in this book in the order in 
which it is presented. The development from topic to topic is carefully 
graded, so working through the book, and — most importantly — 
entering the material into your computer as you read, in the sequence 
in which it is presented here should assist you in developing your 
programming skills. Special thanks to Jeremy Ruston who provided a 
substantial quantity of material for the latter part of the book, to Roger 
Munford who prepared extensive notes on many of the functions of 
the BBC Microcomputer, and to Graham Charlton for Microsoft 
versions of some of the programs. 


This book has been a pleasure to write, because the BBC 
Microcomputer ‘co-operates well’ with a programmer, and the 
computer shows the result of careful design. Your BBC 
Microcomputer should be a companion for years to come. | hope this 
book will assist you in making the most of your new machine. 


Tim Hartnell, 
London W12, 1982 
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The PRINT Statement 


PRINT is probably the most-used command in BASIC. It is the 
command which allows the computer to communicate with the user. 


Type the following line into your computer, and then press RETURN: 
PRINT 5 


You'll see that the computer obediently prints the number five. You 
can use the PRINT command to make your computer act as a 
calculator. Enter the following and press RETURN: 


PRINT 5 + 3 


When you press RETURN, you'll see it prints up the correct result. 
This ‘direct calculation mode’ can work out problems as complex as 
you wish. Try the following (remembering to press ENTER to make the 
computer act on what you’ve typed in): 


PRINT SOR (8 + 1) 


This asks the computer to PRINT the square root (that’s what SOR 
means) of the sum of the numbers in brackets, that is, the square root 
of nine. If your computer is functioning correctly, you should have got 
an answer of three. Don’t worry about the SOR at this time. We will 
come to it later on. 


So you can see that PRINT can be used in the direct mode to print out 
numbers, and the results of calculations. It can also print out words. 
Type in the following, then press 


RETURN: 
PRINT HI THERE 


Instead of happily printing HI THERE, the computer comes up with 
what is called an error message. In this case, the error message reads 
No such variable. We'll look at variables in due course, but for now, 
keep in mind that if we want the computer to print out words, the 
words must be enclosed within quote marks. Enter and run (that is, 
press RETURN after typing it in) the following: 


PRINT “HI THERE” 


You’’ll see the words HI THERE appear on the line below the one 
which you typed in. 


To recap quickly: Simply used as a command, typing PRINT 2 + 3 will 
tell the computer to print out the result of that addition. Entering 
PRINT “WORDS” will get the computer to print out everything which 
is within the quote marks. 


Computers use programs, and it is now time to write our first, simple 
program. Enter and run the following: 


10 REM FROGRAM ONE 

£0 PRINT’ THIS TS & DEMONSTRATION" 
30 PRINT 1 

40 FRINT 2 

wo PRINT "THIS IS THE END" 


When you RUN this (which you do by typing in the word RUN, then 
pressing RETURN), you should see: 


D> RUIN 
THIS TS A DEMONSTRATION 
4 


oy 


THIS IS THE END 


While we have this program in the computer, let’s learn a little more 
about programs. Type in LIST, then press RETURN. You'll see the 
program listing comes back. Notice that every line starts with a line 
number. The first line, in this case number 19, starts with the word 
REM. REM is computer talk for REMARK, and is used in a program 
when you want to explain what is going on in within a program, or 
what a program is (as in this case), so that when you return to it later, 
you'll know what is going on. The computer ignores REM statements 
when it comes to them. 


A REM statement is made up of a line number, then the word REM, 
and some text. The message can be made up from almost anything 
you like — letters, numbers or punctuation marks — although it is best 
to keep the messages as clear and brief as you can. Although anything 
typed after the word REM is ignored by the computer when it is 
running a program, a REM line still uses up memory. 


REM statements are often like the following: 
10 REM THIS WORKS OUT THE SCORE 
1@ REM FIND THE ANGLE 


There is no reason why there should be just one REM statement, but if 
the commentary you wish to add to a particular area of a program is 
one which may take up more than one line of text, it is important to 
place the word REM at the beginning of each new line. For example: 


60 REM THE MULTIPLICATION ROUTINE IN WHICH 
7@ REM THE TWO VARIABLES A AND B 
80 REM ARE MULTIPLIED TOGETHER 


So long as each REMark line starts with the word REM, the computer 
will ignore the text that follows on that line (although the complete 
program listing, REMs and all, will be printed if a LIST is requested). If 
you forget to place REM at the beginning of what is intended to be a 
REM statement, the computer will assume the line is a statement it 
does not understand, and reward you with an error message. Type in 
the number 10, then press RETURN, then type in LIST, and press 
RETURN again. You'll see your program reappear as follows: 


20 PRINT'THIS TS A DEMONSTRATION" 
30 FRINT 1 

40 FRINT 2 

“0 FRINT "THIS IS THE END" 


Line 1@ has disappeared. It is very easy to get rid of lines you don’t 
want in a computer, just by typing in the relevant line number, then 
pressing RETURN. Try typing in line 1@ again, as it was before, but 
leaving out the REM statement. Enter the following line, then run the 
program: 


10 PROGRAM ONE 


You'll get the error message ‘Mistake at line 10’, because the computer 
does not know what to do when it comes across the word PROGRAM. 
It has nothing within its instruction set which corresponds to the word 
PROGRAM. 


Editing 


We can put the word REM back in, and illustrate how the BBC 
Microcomputer’s editing facilities work. Type in 18 REM, then go to 
the key with the arrow on it above the word RETURN. Press this once, 
and you'll see a solid square appear after the word REM and a flashing 
line (the cursor) move up a line. Keep pressing the arrowed key until 
you reach the line which reads 19 PROGRAM ONE. You will probably 
find that the flashing cursor is underneath the space after the number 
10. When you've done this, press the COPY key (under the RETURN 
key) and hold it down until the words PROGRAM ONE are ‘copied’ 
after the word REM in your new line 10. Now press RETURN. This may 
sound confusing if you’re not reading this book while seated at your 
computer, but should make sense if you are. Test that the new line is 
in place by typing in LIST, and then pressing RETURN. The program 
should reappear, with the word REM in the right position in line 10. 
Check that it is correct by entering RUN, then pressing RETURN. 


Just to recap, the REM statement has two uses. One Is to act as an aid 
so you and your friends can untangle programming webs you've 
woven. The second use Is to act as a separator between individual 
routines in a large program; to split it into visually separate blocks. 


At the end of the book is a chapter called ‘Improving your programs’ 
which discusses the concept of ‘structured programming’. The use of 
REMs in this second way is described in more detail at that point. 


LIST and RENUMBER 


LIST is the BASIC command which we use to get the computer to 
print out the whole of the program it is currently holding. You can 
simply enter L., instead of the whole word. Try it now. Type in L. and 
press RETURN. The program should list out in full. All lines in the 
program are LISTed in numerical order, rather than in the order in 
which they were entered into the computer. The computer 
automatically sorts its lines into order. Enter the following, press 
RETURN, and then LIST the program again: 


15 PRINT “THIS IS A NEW LINE” 


You'll see it stays at the bottom of the listing when you first press 
RETURN, but after typing in L. and press RETURN again, you'll see it 
snuggled into its proper position, as follows: 


10 REM FROGRAM ONE 

1S PRINT "THIS IS A NEW LINE" 

20 FRINT' THIS IS A DEMONSTRATION" 
30 FRINT 1 

40 FRINT 2 

“0 FRINT "THIS IS THE END" 


The BBC Microcomputer has a very useful facility to renumber lines. 
You can number lines with any interval you choose (like starting at 
one, then going up in ones), but this does not leave any space for 
additional lines to be inserted. If you type in RENUMBER, then press 
RETURN, then LIST, then RETURN again, you'll see the following: 


10 REM FROGRAM ONE 

20 FRINT “THIS IS A NEW LINE" 

30 FRINT'THIS IS & DEMONSTRATION" 
40 FRINT 1 

YO FRINT 2 

60 FRINT "THIS ITS THE END" 


As you can see, line 15 has been changed to line 2@, and all the 
subsequent lines have been renumbered. RENUMBER is a useful 
command to remember, and you can use it whenever you need 
additional space between lines, or before you SAVE a program on 
cassette, or print it out on a printer. 


If you simply type LIST, the entire program will be listed by the 
computer. However, by varying the listing format, a number of useful 


variations can be achieved. These allow you to examine individual 
portions of the program. Let’s add a few more lines before we do so. 
Add the following: 


7Q FRINT "HI" 

80 FRINT "THERE" 

70 REM HI THERE 
100 FRINT 4 


LIST 10,50 will only allow the lines number 19 to 5@ to be listed. Any 
lines numbered higher or lower than this will not be included. 


LIST 7@ will only list line 70 
LIST ,7@ will print all the lines up to, and including, line 70 
LIST 7@, will print out all the lines above line 70, including line 70 


You can halt a listing at any point by pressing ESCAPE. 


RUN, STOP, END, NEW, 
OLD 


As you've no doubt realised, the RUN command is used to start the 
computer operating on a program which you have entered into the 
computer, either by typing it in, or by loading a program in from 
casssette. The computer executes all the lines stored in its memory, 
starting from the lowest number, and working through in order. 
Various commands, as you shall see shortly, can make the program 
loop back on itself, but in essence, the computer works through a 
program in line number order, unless told to do otherwise. 


If you want the program to STOP at a particular point, you can use, 
naturally enough, a command called STOP. Enter 35 STOP, press 
RETURN, then run the program. It will print out: 

THIS IS A NEW LINE 

THIS IS A DEMONSTRATION 


Then, after a blank line, will be the message ‘““STOP at line 35”. BBC 
BASIC includes another word which does exactly the same thing, but 
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does not print out an error statement. Change line 35 to 35 END, press 
RETURN, then run the program again. You'll find it prints out the two 
lines as before, but does not print out a message like ‘END at line 35”. 
You can use these commands wherever you wish a program to 
terminate. Other computers are not as tolerant as this. Some, like the 
Acorn Atom, demand that an END statement ends each program, and 
responds with a beep and an ‘Error’ message if the END is left off. You 
do not need to worry on the BBC Micro. The END is optional. 


We'll return to look at PRINT In a little more detail in a moment, but 
there is one more (actually, two associated) command I'd like to 


discuss first, NEW and OLD. 


The command NEW will erase any program from the computer's 
memory, and should always be used to remove anything from the 
memory before you start writing a new program. If you don’t do this, 
and you use different line numbers for the second program, you'll find 
the lines may well be interwoven with the old program. The NEW 
command is fairly brutal on most computers, causing it to dramatically 
forget everything. Try it now on your computer. 


Type in NEW, press RETURN, then enter LIST, and RETURN again. 
You'll find the ‘greater than’ symbol beside the flashing cursor appears 
immediately below the word LIST — but no listing. Try LIST 10, then 
RETURN, and you'll get the same nothing result. However, and this is 
useful to remember, the BBC Micro has tucked the program away in 
another part of memory, just in case you change your mind. Type in 
OLD, then RETURN, then LIST and RETURN again and, as if by 
magic, the program has been restored. OLD is pretty easy to 
remember as the opposite of NEW. 
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PRINT formatting and 
TAB 


To complete our exploration of the PRINT command, type in NEW 
again to get rid of the program. Now enter and run the following: 


100 
110 


REM XXFRINT FORMATS** 
CLS 

PRINT 

PRINT 

PRINT 

FRINT “HI'S60 
PRINT */¢7 "HIE'379 
FRINT 1 “z 3 
FRINT 1,2;3 

FRINT 1323 
PRINT$13233 


Follow this explanation carefully, and you should learn a lot about the 
way the BBC Micro formats its print output, you can then use what 
you've learned to arrange output of your own programs as you wish. 
I’ll go through the program line by line, a practice which will follow, 
from time to time, in the rest of the book. 


10 
20 
30-50 


60 


70 


80 


— Title REM statement 

— CLS is the command to clear the screen 

— Each of these words PRINT, with nothing following, 
prints a blank line, moving the next print position down a 
line. This explains the gap at the top of the screen before 
anything is printed. 

— This prints the word HI and then, leaving a space, prints 
the number 60. Note that the number can follow the word 
but will not necessarily be printed immediately after it, as 
does happen in the following line. 

— The three apostraphes (shift the 7 key), as you can see, 
have exactly the same effect as three blank PRINT lines, 
and are far more convenient to use. Note also that the 790 is 
printed hard up against the word HI. The semi colon (;) 
between the close quote marks and the number ensure 
they will be printed together in this way. 

— This allows the numbers 1, 2 and 3 to be printed in neat 
little rows. Note that there must be a space between them 
or the computer will print them as 123 or 12 and 3 or 1 23. 
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99 — This line uses commas between the numbers ensuring 
they will be printed in separate rows. 

100 — The semicolons between the numbers ensures that, 
after the initial space between the left hand side of the 
screen and the numbers, the numbers will be printed hard 
up against each other. 

110 — The semicolon before the first number ensures the 
printing starts at the extreme left hand edge of the screen. 


You can use these within PRINT statements to create the effects you 
need. Clear the current program with NEW, then enter and run the 
next program, changing line 3@ as shown, to produce the effects 
shown. Don’t worry about what the rest of the program means at this 
stage. It will be explained shortly. 


10 REM XXPRINT THOXx 
20 FOR J=1 TO 19 
30 FRINT J 
40 NEXT J 
“RUN 


oM ON & CHS & ho 


p> 


10 REM XXPRINT THOXX 
20 FOR J=1 TO 190 
30 FRINT oJ; 


40 NEXT JJ 
“RUN 
1 Z 3 4 
9 10° 
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10 REM XXPRINT THOXX 
20 FOR J=1 TO 10 
30 FRINT 33 
40 NEXT J 
“RUN 
12345678910> 


10 REM A*FPRINT THOxX 
20 FOR J=1 TO i190 
30 FRINT j;J¢" "3 
40 NEXT J 
RUN 
1 2g 3 4 8&8 6 FY 8B FY 10 


TAB (for tabulate) is a command which is very useful to combine with 
the word PRINT. It moves the PRINT position across the number of 
lines specified in the brackets following the number. Change line 30 so 
it reads as in the following program, and run it: 


10 REM *xXF RINT TWOxx 
20 FOR J=1 TO 10 
30 FRINT TABCU)3J 
40 NEXT J 
RUN 
1 
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And then like this: 


10 
20 
30 
40 
= RUN 
1 


REM XXFRINT THOXxX 
FOR J=1 TO 10 
PRINT TABCSKI) 3 J 
NEXT J 


hM 


iF 


o 
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We are now going to introduce a program which will be used in a few 
other places throughout this book to illustrate different aspects of the 
computer's actions, so | suggest you enter it, even though you may 
not know what all the lines mean, and then SAVE it on tape, so you 
can load it in again when we refer to it later (such as in the section on 
READ and DATA). 


10 
20 
30 
40 
0 
60 
70 
3 Q 
°0 
106 
110 
1Z0 
130 


140 
130 


REM TABULATOR ROCKET RANGE 

MODE? 

FOR J=10 TO 1 STEFF -—1 

PRINT “77 

T= TIME 

REPEAT UNTIL TIME-T?30 

NEXT J 

REPEAT 

QeRNDCZ9 +1 

Ws1ZSB+tRND CS) 

FOR rocket=1 TO 7?READ ROCKETS 
FRINT TAB CO) SCHR C1295" C" 5 TABCO) 
{CHR (CU) F ROCKETS 3 TAB (C36) SCHRS C129) 5") 
NEXT rocket 

T=TIME 

REPEAT UNTIL TIME-T=2 
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1640 SPACE =RNDC10) 

170 SOUND 16,-RND(S)-10,RND(C3)-1,RNDC20) 
180 FOR print=1 TO SPACE 

190 FRINT TAB CO? SCHR C1299 5" C'S TABCS7)Z")" 
200 NEXT print 

2l0 RESTORE 

220 T= TIME 

230 REPEAT UNTIL TIME-T=2 

240 UNTIL FALSE 


250 DATA " + "," +44" 
2&0 DATA 1 whe oh. oh it ; tt of of od at 
270 DATA " +44 "," +44 0 
280 DATA " <x» " 


SAVE 


You SAVE programs by typing in the program, connecting up your 
cassette recorder as shown in the manual, then typing in SAVE 
followed by the name of the program within quote marks. In this case, 
| suggest you use the name ROCKET, so you would type in SAVE 
“ROCKET”, then follow the instructions given by the computer. 


These mean you must turn your cassette recorder on, and start to 
record, and once you've done this, press the RETURN key. You'll see 
the word ROCKET appear, followed by a series of numbers as the 
computer saves the program in blocks. When it has all been saved, 
after a few seconds, the computer will beep to tell you it is finished, 
and the ‘greater than’ symbol will reappear, followed by the flashing 
cursor. 


| suggest you make a habit of saving each program three times in a 
row, on a C—12 or C—15 (i.e. computer) cassette, and you only put 
one program on the side of each tape. Label the tape clearly with the 
load name (i.e. with ROCKET In this case). Although it may seem 
wasteful to use up the whole side of a cassette with just one program, 
recorded three times, the frustration you will save yourself by not 
having to search through tape after tape for a program you want will 
more than compensate for using more cassettes than is strictly 
necessary. The program is recorded three times just in case the tape 
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gets damaged at some point, or you accidentally erase part of the 
tape, or — as sometimes happens — one SAVEing of a program just 
refuses to load properly. 


You should clean the recorder’s heads frequently (using liquid, not a 
tape cleaner ribbon in a cassette) to ensure the clearest possible signal 
is put onto the tape. 


Now let’s return to our TABULATOR ROCKET RANGE. 


TAB (X) and TAB (X,Y) 


The important lines for this discussion are 120 and 190, as these make 
use of TAB in printing. Line 12@ behaves as follows: 


TAB (@) — This is not strictly necessary, but ensures that the first 
PRINT is hard against the left hand edge of the screen 

CHR$(129) — This ensures that the next thing printed will be red. The 
colour commands are described in detail later on in the book 

“(""— This prints a (red) left hand bracket 

TAB(Q) — Q is a number between 2 and 390 (chosen in line 98) which 
determines how many spaces across the PRINT position will move 
CHRS(U) — This determines the colour of the rocket which will be 
printed 

ROCKETS — This is part of the rocket, selected by the READ statement 
in line 110. Don’t worry about this at the moment, as we will be using 
the ROCKET program again when discussing READ/DATA/ 
RESTORE in due course. For now, it is enough to realise that 
ROCKETS is part of the series of plus signs which you see in lines 250 
to 280. 

TAB (36) — After the part of the rocket on that line has been printed, 
the PRINT position moves across to the 36th position on the line, 
where CHR$(129) turns the following “’)’’ red to put a border down the 
right hand side of the screen. 

Line 1900: 

TAB(@) — As above 

CHRS$(129);"(‘ — As above 

TAB (37):’)’’ — This moves the PRINT position across to the 37th 
position, to print the bracket for the right hand border. Line 19@ is used 
a random number of times (between one and ten times, chosen in line 
160) to put a space between the rockets. 
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So far we have only used TAB with a single number in brackets after 
the word. Remember, TAB(A) will move the start of the PRINT 
position A spaces across a line. You can have the word TAB followed 
by two numbers, such as TAB(6,10) which will move the PRINT 
position six spaces across, and 10 down. The top left hand corner of 
the screen is zero, zero, so TAB(@,@) indicates that the printing will 
begin in the top left hand corner of the screen. The left hand side of 
the screen in numbered @, while the right hand side is 19, 39 or 79. We 
have been working in Mode 7 to date (the mode your computer is 
automatically in when you first turn it on), and in this mode, the screen 
is 40 characters wide, so the position furthest to the right is numbered 
39. 


The following program, SQUASH, uses TAB(X,Y) to position a ball 
(line 620) and a bat (line 53@). You use the “Z”’ and ‘’M’”’ keys to move 
the slide (the bat) at the bottom of the screen right and left 
respectively. The program keeps track of how long you keep the ball in 
flight, and gives you a score at the end based on this time. Pressing 
any key at the end of the game will give you a new game. 


You can make the game easier by changing the zero after INKEY$ in 
line 140 to a five or a 10, and add a delay loop between lines 17@ and 
180. A delay loop is simply something like 175 FORQ= 1 TO 300:NEXT 
Q. You may also wish to change the sound the ball makes when it 
bounces. Simply change the third figure after the word SOUND in 
lines 650 and 660. Try 120 + RND (130) or 240 + RND(14) for two 
different effects. 


This listing may well look pretty horrifying at the moment. Once you've 
finished working through this book, you may wish to come back to 
programs like this, and try and work out what each section of the 
program is doing. You'll be surprised to see how much of it you can 
decipher. 


10 REM * SQUASH xX 


20 REM Move bat using the "Z" and "M" keys 


30 MODE 7 

40 HIGHSCORE=0 

“0 FROCset up 

0) REM 2K 2K 2K 9K 3K KOK OOK OK 

70 REPEAT 

OO FRINT TAECO,23) ;CHRSCLES+RND CS) > 
sUHieh score is "PHIGHSCORE 

90 FRINT TARCO,5) {CHRéCRND (CS) 4128) 5 
"You have kept the ball in play" 

100 FRINT CHRSCRND CS) 41289 3 

“for "SCTIME DIV 107/103" seconds 


18 


180 


210 
220 
230 
240 
20 


260 


A$=TINKEY$(0) 

KFX 15,1 

IF AS="Z" OR AG="M" THEN FROCmove_bat 

FROCmove ball 

FRINT TABCE+11,19 9 ;EAT# 

UNTIL end 

TF TIME DIV LO02HICHSCORE 
HIGHSCORE=TIME DIV 100 

TI=T IME 

REPEAT UNTIL TIME>TI+90 

KFX 15,1 

FOR T=0 TO 3 

SOUND T4+#16,-15,RND¢610094100,255 

NEXT T 

TIME=0 

REPEAT UNTIL TIME?150 

*XFX 15,0 

KFX 12 

FROCnewasme 

FEM KK KK KOK KKK KOK KKK 

DEF FROCset_up 

LOCAL 

FRINT TABC10,10>93;STRING$(20,CHRS (255) 

FOR T=0 TO 10 

FRINT TABC1LO,T+109 S$ CHRE(C 253) 5 
TABC30, T+10) $CHRS (25 ae, 

NEXT T 

BATé=" 0" 

NOBAT #=" " 

X21 Y=1¢Le1¢hM=1 

TIME=0 

B=10 

FRINT TABC114+6,199 ;BATS 

KXFX 1Li,l 

KFX 12,1 

VOU 233820230303 03 

ENDFROC 

POE MK KKK KOK KOK OK KOK KX 

DEF FROCmove_bat 

IF At="M" AND B=16 THEN ENDFROC 

IF A$="Z" AND B=0 THEN ENDFROC 

FRINT TABCL1+6,19) }NOBATS 
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wt dO 
wed 
wea A 
wheat 
wind 
OQ 
we 


73 () 


PQ 


600 
410 
620 
430 


640) 
620 
660) 
671) 
660 


591) 
700 
710 
720 


TF Ate"M" THEN Betied 

TF Ake 2" THEN bebe d 

PRINT TAB CLI+E, 1990 S6BATS 

EN DRPROC 

DEF FROCKove ball 

PRINT TABCLIT4+X,ibe¥Yog oo" 

CeO Lex OR L+x<0 THEN los? 
SOUND 1,-15,157, 1 

IF M+tYS8 OR M+tY¥<0 THEN M=-M? 
SOUND Ly-LS,167,51 

Xo X +] 

Yun f+ 

FRINT TAR CLIX, Lieyo gtx" 

Cr Ye@ AND CX<E OR X= (B+2)>9 THEN 
end=TRUE ELSE end=FALSE 

Pe TT ME. 

ENDEROC 

Pe MK COOK CCK NOOK 

DEF FROCneweeme 

PRINT’? 7%" CHRECRND CS) 4128 9 3 

"Press any key for & new game" 

A$=GET + 

CLS 

GOTQ So 

ENDFEROC 


You can use TAB with either the PRINT statement or the INPUT 
statement. Experiment with TAB, and with the use of ; and, in PRINT 
statements, until you are confident you know what they are doing. 
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Random numbers 


Random numbers are very useful for games playing, for creating 
designs and sounds, and for changing the colour of PRINT 
statements. We will look at their use in creating coloured PRINT 
output in the section on graphics, and at their use in making sounds in 
the SOUND part of the book. Right now we’ll examine the production 
of random numbers, and use them in a few simple programs. 


The BBC Microcomputer allows you to generate random numbers of 
two types — floating point between zero and one, and integers. Both 
these types can easily be set to be greater than, or less than, zero (i.e. 
to be positive or negative numbers). 


Enter and run the following to see a range of numbers between zero 
and one: 


1@ PRINT RND (1) 
20 GOTO 10 


You'll get a list of numbers something like this: 


1. 9188256409 
+2O6L 14519 
Q.102944E93 
0.295019549 
3+66730662E~-3 
Q.,38654698779 
0.9 464225042 
0.310764692 
O.,451954321 
0.1285487876 
eee OB91L99 
O.440212717 
U.7494L Lees 
0.521860198 
O0.9S71353116 
O.711896141 
0.765480196 
0. 3546654011 
0. 988525593 
0.274666697 
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You'll find that random integers are often of far more use than are 
these numbers between zero and one. Most computers demand a 
quite complex statement (like INT(RND(1)*3@) +1) to get random 
whole numbers, but a routine to do this already exists within the 
computer. Change the 1 in line 1@ to a 10, so it reads PRINT RND(19), 
and run the program again. You're like to get a series of numbers such 
as the following: 


LYN oO ON NGO ND 


The computer takes the number in brackets (known as the argument 
of the function) and selects numbers at random between one and that 
number. To get negative random numbers, just put a minus sign in 
front of the word RND. Try that, and run it again, to get a result like 
this: 


“4 
~j 
~& 
6 
~9 
~4 
~é 
~190 


~% 
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woes 4 
~i0 
~§j 
~3 
~10 
7 
-9 
—4 
~2 


~3 


You can use the random number generator for any application where 
you need to emulate a random activity in the real world, like the 
distribution of weeds in a garden, the spread of clouds in the sky, or 
the result of rolling die. The next program emulates the role of a 
six-sided dice. Enter and run it a few times. Note that the single quote 
mark in line 30 is found on the 7 key. 


10 REM *XDICE ROLLER 
20 CLS 
SO INFUT ‘¢’*’ "HOW MANY TIMES 
WILL I ROLL THE DIE? "A 
40 FOR B=1 TO A 
~0 PRINT RNDCS6) 


60 NEXT E 
“RUN 
HOW MANY TIMES WILL IT ROLL THE DIE? 7 
4 
2 
a 
Pe 
4 
z 
a 


While the theoretical distribution of numbers between one and six with 
a six-sided die suggests each number has an equal chance of coming 
up in along, long series of rolls, the totals produced when you use two 
dice, approaches the following distribution: 
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Total No. of ways Probability Percentage 
Showing it can be thrown 


2 1 1/36 2.77% 
3 2 2/36, 1/18 5.55% 
4 3 3/36, 1/12 8.33% 
5 4 4/36, 1/9 11.11% 
6 5 5/36 13.88% 
7 6 6/36, 1/6 16.66% 
8 5 5/36 13.88% 
9 4 4/36, 1/9 11.11% 
10 3 3/36, 1/12 8.33% 
11 2 2/36, 1/18 5.55% 
12 1 1/36 2.77% 


To test just how random the random number generator is, enter and 
run the following program, which rolls two dice as many times as you 
request. 


10 
2Q) 
30 


40) 
wl 
450 
70 
0 
? 0 
100 
110 
120 
130 


140 
150 


REM TWO DICE 

CLS 

ENPUOT “°° "HOW MANY TIMES WILL I 
ROLL THE DICE? "D 

CLS 

DIM ACILZ) 

FOR C=1 TO D 

DTEL=ARND C4) 

DIEZ RNG C4) 

PRINT TABC2.3),DTEL, DIEZ 

SUM=DITIEL + DYEZ 

ACSUMI=ACSUM) +1 

FOR fe2 TO 12 

FRINT TABCS.E+3).8 

,ACED,INTCACK) /CKL10003"R%" 

NEXT & 

NEXT C 


Here’s the result of one run when | got the computer to roll the two 
dice over 700 times. The top two figures (3 and 4) are the result of the 
current roll. Next, from there down, the numbers 2 to 12 in the left 
hand column are the totals we are looking for, followed by the number 
of times that total has been rolled in the current run. The final column 
shows the approximate percentage distribution of each of the totals. 
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i} 
a 


2 23 3h 
3 34 Ah 
4 we fh 
a 70 12% 
& 105 14% 
7 133 17% 
3 1 Lan 
9 73 10% 
10 73 Ph 
1i 38 wl Aa 
fd 26 Sh 


You can see that this run has approach the theoretical distribution 
fairly closely, which suggests the random number generator is 
performing its task properly. The numbers produced are not totally 
random, but are from a very long list of numbers, so long that no 
pattern can be discerned. 


Acey Duecy 


Here’s a very simple game which shows the random number generator 
in action. You can see from the sample run how to play it. The game is 
not really much of a game, but entering and running it is well worth 
while. Once you've played a few rounds of the game return to this 
book for a discussion of the program. You should be pleasantly 
surprised at how much you have already learned. 


10 REM *ACEY DUECYx 

20 D=20 

30 REFEAT 

40 CLS 

~0 A=KNDC13) 

60 B=RNDCI3) 

70 IF ARS(CB-AI<Z2 THEN 50 

80 C=RNDC13) 

70 IF A=C OR B=C THEN 80 

100 FRINT “’’"MY FIRST NUMBER IS "3A 
110 PRINT "MY SECOND IS "36 

120 PRINT ’CHRS(C133)3"YOU HAVE $'3D 
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130 FRINT ’’"HOW MUCH DO YOU BET MY NEXT" 

140 FRINT "NUMBER LIES BETWEEN "SA3" AND "ZB3 "2" 
150 INPUT E 

160 TF ESD THEN 150 

170 IF Es. FRINT CHRS¢C129)3 "COWARD! '" 

180 FRINT “’"MY NUMBER TS “3C 

190 TF Ex. THEN 270 

200 TF NOT (CsA AND CzB OR CeA AND CoB) THEN 240 
2L0 FPRINT "WELL DONE, YOU WIN $5 2xE 

220 D=D+2KE 

230 GOTO 270 

2490 FRINT “SORRY, YOU LOSE $"5E 

290 D=D-fE 

260 TF Del THEN 290 

2/0 A$=GCETS 

2890 UNTIL FALSE 

270 PRINT "YOU ARE BROKE" 


MY FIRST NUMBER IS 9 

MY SECOND TS 11 

YOU HAVE $20 

HOW MUCH DO YOU BET MY NEXT 
NUMBER LIES BETWEEN 9 AND 11° 
°3 

MY NUMEER TS 13 

SORRY, YOU LOSE $3 

MY FIRST NUMBER TS 8 

MY SECOND IS 3 

YOU HAVE $17 

HOW MUCH DO YOU BET MY NEXT 
NUMBER LIES BETWEEN & AND S? 
PZ 

MY NUMBER IS 10 

SORRY, YOU LOSE $2 

MY FIRST NUMBER IS 1 

MY SECOND IS 3 

YOU HAVE $15 

HOW MUCH DO YOU BET MY NEXT 
NUMBER LIES BETWEEN 1 AND 3°? 
?0 
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COWARD! ! 

MY NUMBER ITS 10 

MY FIRST NUMBER ITS 10 

MY SECOND TS 13 

YOU WAVE #15 

HOW MUCH DO YOU BET MY NEXT 
NUMBER LIES BETWEEN 10 AND 13°? 


PLS 


MY NUMBER IS 3 


SORRY > 


YOU LOSE #135 


YOU ARE BROKE 


Let us have a look at this program, line by line: 


10 
20 


30 
40 
50 


60 
70 


80 
90 


100-110 
120 


130-140 
160 
170 
180 
190 
200 


Title REM statement 

Sets the variable D, which is the amount of money you 
have to equal $20 

Starts a REPEAT/UNTIL loop which terminates in line 280 
Clears the screen 

Sets the first number (A) equal to a random number 
between 1 and 13 

Does the same for B 

Checks to see if the difference between the two numbers 
to select two new numbers 

Chooses a third number between one and 13 (C) 

Checks to see if C equals A or B and, if so, goes back to 
line 80 to choose a new number 

Tells the player what the two numbers are, using the two 
apostraphes after the word PRINT to creat two blank lines 
Prints out, in purple, the amount of money the player has. 
In mode 7, preceding a print line with CHR$(133) causes 
the following material to be printed in purple (magenta). 
Asks the player to enter a bet regarding the likelihood of 
the third number lying between the first two 

If the player attempts to bet more money than he or she 
has, goes back to accept another entry 

If the player enters a bet less than one, prints the word 
COWARD in red (using CHR$(129)). 

Prints out the third number, using an apostraphe to print a 
black line 

If the bet was less than $1, goes to line 27@ to await a new 
round of the game 

Checks to see if the player has lost, and if so, sends action 
to line 240 
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210 Congratulates the winner 


220 Adds the winning amount (2*E, where E is the amount bet) 
to the player’s money (D) 

230 Sends action to line 27@ for the next round 

240 Prints out the “SORRY, YOU LOSE” message 

250 Deducts the loss (E) from the player’s money (D) 

260 Checks to see if the player has less than $1 and if so 
goes to the “YOU ARE BROKE” message 

270 Waits for any key press 

280 Goes back to the line after the word REPEAT, in this case 


line 40, to clear the screen for a new game 


Reading through this explanation a couple of times, and looking 
carefully at the line or lines it refers to, should teach you quite a bit 
more about programming. There are a number of specific commands 
which we will look at in more detail, but you’re probably starting to 
pick up quite a bit at this stage. 


Variables 


You will have noticed in the previous program that a series of letters 
were used to represent numbers. The letter A was assigned (in line 50) 
to a number between one and 13, B was assigned in the same way in 
line 60 and C was assigned in line 80. The amount of money you had 
was assigned to variable D in line 20. The letters A, B, C and D in this 
program are called variables. 


There are three basic types of variables: integer numeric, numeric and 
string (alphanumeric). 


Almost any combination of letters and numbers can be used as a 
variable in BBC BASIC, so long as it begins with a letter, and there are 
no punctuation marks or symbols within the name. So SMUDGEPOT 
and D17 are valid variable names, while 2 SMUDGE and 1D7 are not. 
Numeric variables, letters or combinations of letters and numbers 
beginning with a letter, are simple to use. You can assign a variable of 
this type to any number within the computer’s numerical range. 


As you probably know, the computer uses scientific notation to 
display numbers larger than nine digits long, with the number as a 
single digit and eight decimal places, followed by the letter E (for 
exponention) and the power of ten to which the number is to be 
multiplied. Enter and run the following demonstration which shows 
the variable A in use, being assigned to a number which is being 
multiplied repeatedly by 10, and then printed. 
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100 REM XXSCIENTIFIC NOTATIONXX 
110 A#1234 

120 A=10XA 

130 FRINT A 

140 GOTO 120 


12340 
123400 
1234000 
12340000 
123400000 
1.234E9 
1.-234E10 
; e234E LIL 
ee sFk LZ 
i! 234E 13 
1.234E14 
1-234E1%5 
1.234E16 
eae ta 
+2 34E18 

1 2a4E19 


You can see that after the number becomes nine digits long 
(123490000), it is printed as 1 something, followed by E and a power of 
19. Looking at the listing tells us another couple of things about 
variables. The variable is assigned by just entering the name of the 
variable (in this case, A), followed by an equals sign, and the value 
which we want assigned to the variable. If we said A = 99, then 
following this with PRINT A would produce 99. Line 12@ looks a little 
odd. The asterisk (*) stands for multiply in BASIC. Line 12@ seems to 
be saying that A is equal to 10 times itself, which — in terms of 
standard arithmetic — is not true. Any line which assigns a value to a 
variable has, as an optional word, LET in it. Some BASICs insist on the 
word being used, so line 11@ would have to read LET A = 1234, and 
line 120 would read LET A = 10*A. BBC BASIC regards LET as 
optional, but it is possibly easier to understand what is happening in an 
assignment statement if you either use the word LET, or mentally 
place it in position. 


Try typing in things directly, such as LET B = 13, press RETURN, then 
enter PRINT B, then RETURN again. A 13 will appear. Follow this by 
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entering B = 16, RETURN, PRINT B, RETURN. A 16 will appear, 
showing that the LET is optional. Despite this, you may, as | suggested 
a moment ago, prefer to use LET for the time being, until you are 
familiar with assignment. 


Integer variables can be used whenever whole numbers only (i.e. 8, 
504, 33 or 2398) are used. These use up less memory, and are 
processed more quickly than are ordinary variables, which can 
accommodate floating point numbers. Integer variables are indicated by 
the presence of a percentage sign following the name of the variable. 


Enter and run this simple routine to see integer variables in action. 


10 REM VARIABLES ~- INTEGER NUMERIC 
20 AL=4 

30 FRINT Az 

40 AL=4.2 

30 FRINT AZ 


You should see the number 4 printed out twice. The first time (line 30) 
this is what you would expect, as the 4 had been assigned to A% in 
line 20. However, in line 40, A% is assigned to 4.2 but the .2 is ignored 
when the variable is printed. Although | pointed out that integer 
variables used less memory, and were processed more quickly than 
were floating point variables, in most cases the additional speed is not 
significant. However you will find times when you want maximum 
speed (as in programs using moving graphics), and in these the speed 
difference can be quite significant. 
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String variables 


String variables are a series of letters, followed by a dollar sign. Enter 
A$ = “HELLO”, press RETURN, then PRINT A$, RETURN, will give 
you HELLO. ABECD$ = “THING A TRY A”, RETURN, PRINT 
ABECD$, RETURN will give you THING A TRY A, complete with the 
spaces. You can put anything, including numbers, symbols, 
punctuation marks and letters within the quote marks, to be assigned 
to a string variable. A series of letters and whatever, within quote 
marks in this way, is known as a string. 


The variable name does not have to be in upper case (capital) letters. 
You can get lower case letters by pressing the CAPS LOCK key, next 
to the CTRL key. Pressing the CAPS LOCK key again will return you to 
upper case. 


Crickets 


There is, strange to say, a correlation between the temperature and 
the number of times a cricket chirps each minute. The following 
program converts the number of chirps per minute into the 
temperature, in degrees Fahrenheit. Enter and run it a few times. Note 
that the variable chirp is set equal initially to 80 in line 2@. this is 
converted into the variable temperature in line 30, and this latter 
variable is used in the PRINT statement in line 4@. The variable chirp is 
incremented by a random number between one and seven in line 60, 
there is a short delay (line 70) and then the program returns to line 30 
to go through the whole process again. It will run for a long, long time 
(until you exceed the highest possible number the BBC 
Microcomputer can cope with) if you do not interrupt its running with 
the ESCAPE key. 


10 REM Chirp converter 

20 chirp=80 

30 temperature=INT( (Cchirp/4)+40.5) 

40 FRINT ‘"The temperature is "$temperature 
~0 PRINT “whem there sre "jchirp3" chirps." 
60 chirp=chirptRND(7) 

70 FOR J=1 TO 800?2NEXT J 

80 GOTO 30 
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= RUN 
The temperature is 60 
when there sare 80 chirps. 


Tne temperature is 62 
whem there sre 87 chirps. 


The temperesture is 63 
whem there are 91 chirps. 


The temperature is 6&4 
when there sre 93 chirps. 


The temperature is 65 
when there are 100 chirps. 


Tne temperature is 63 
whem there are 101 chirps. 


Although it takes a little longer to type in long variable names, these 
have a clear advantage over use of names like A, B and C2. You 
know, without having to refer back, what each variable represents. 
Here is another program which uses two variable names to help make 
it clear what is going on. Enter and run this. 


10 
20 


30 


wt O 
60 


80 
90 


REM **XKVARTABLES ®x 

WORDS="THE NUMBER ITS " 

NUMBER=3 

CLs 

PRINT *? “WORDS > NUMBER 

PRINT “"THE SQUARE OF "NUMBER 
PRINT TABCSO3°TS “Ss NUMBERXNUMBER 
FRINT “7 "ANG THE SQUARE ROOT" 
PRINT "TS “ZS SQRCNUMBER > 
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To summarise: 


@ Numeric variable — This can have any name, so long as it 
starts with a letter and does not contain punctuation or 
symbols 

@ Integer numeric variable — The name is as above, but with 


a percentage sign at the end. This takes less memory, and 
is processed more quickly than an ordinary numeric 
variable, but can only be assigned to a whole (i.e. 
non-floating point) number 

e@ String variable — This ts a letter or combination of letters 
and numbers, starting with a letter and ending with a dollar 
sign, which is assigned to anything within quote marks. 


Variable names of all three types may be of upper or lower case letters 
(or a combination of these), but they do not mean the same thing. 
That is, a$ is not the same as AS. 


All variables can be assigned by use of a LET statement, which is 
optional, followed by the name of the variable, an equals sign, and 
then the value to be assigned to the variable. 


INPUT 


The INPUT statement is used to get information from a user while a 
program is actually running. The computer stops when it comes to an 
INPUT statement and waits for an entry of some kind from the 
keyboard before it will continue with the execution of the program. 


Enter and run the following, which shows numeric inputs in action. 
The program will wait for you to enter one number, then press 
RETURN, then wait for another number. After you have pressed 
RETURN again, it will print the sum of the two numbers. 


10 REM XX INFUT xx 
29 INPUT xX 
30 INFUT ¥ 
4Q 2=2X+¥ 
YO PRINT 2 
“RUN 
23 
PS 
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As you can see, the computer generates a question mark while waiting 
for your input in each case. That is OK so far as it goes, but you would 
not have known what to do when you ran the program unless you 
had read it in this book. There is a simple way to rectify this, by 
programming in user prompts. The preceding program can easily be 
rewritten so that the user has no doubt as to what he or she is meant to 
do. 


10 REM A¥TNFUT Xx 
20 TNFUT "GIVE ME A NUMBER, X 
SQ INFUT "AND ANOTHER, ¥ 


AQ ZexX+y 
SQ FRINT Z 
> RUN 


GIVE ME A NUMBER ?S 
AND ANOTHER? S 
» 


Running this shows that the computer prints up the words within the 
quote marks, adds a question mark, then waits for the input. If you 
don’t want a question mark, then leave the comma betwen the end of 
the material in quote marks and the name of the variable. You can 
combine the inputs into a single line, as follows: 


10 REM XX INFUT XX 

20 FRINT "GIVE ME TWO NUMBERS," 

30 TINFUT "FRESSING RETURN GETWEEN THEM',X,Y 
4Q 2=2X+¥ 

QO PRINT 2 


= RUIN 
GIVE ME TWO NUMBERS, 
PRESSING RETURN BETWEEN THEM?3 
P66 
&9 
Run this again, this time entering the numbers in one lot, separated by 
a comma, before you press RETURN. That is, when it asks for the first 


number, enter it as something like 3, 5 and you'll see it will accept that 
for the two numbers. Try it now and see. 


The comma between the two numbers informs the computer that two 
separate items of information have been entered. As it is looking for 
two pieces of information, it will continue processing from this point. 
You'll notice that the number you enter sits up hard against the INPUT 
statement when it is printed. To get around this, you can put the 
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question mark within the quote marks, then put a space or two, and 
leave off the comma to suppress the question mark. 


Here’s a program now which shows a number of inputs in action, 
some using the idea mentioned above to move the entered figure away 
from the input statement. 


Bird Cage 


The game is BIRD CAGE. In its first incarnation in England, this game 
had the somewhat improbable name of Sweat-Cloth, and when 
exported to the United States in the early years of the 19th century, it 
was first known as Sweat. Its name changed through the years to 
Chucker-luck, Chuck-Luck, Chuck-a-Luck or just plain Chuck. 
Nowadays, because of the equipment used in the non-computer 
version, the game is often called The Bird Cage. 


The bird cage is an enclosed wire cage holding three dice. Players bet 
on the likelihood of a particular number coming up. If, for example, 
they place their money on six, and one of the three dice ends up with a 
six showing, they get their money back. If all three dice show six, then 
they get three times their money. It is a fairly simple game, but one 
which arouses passion among bird cage devotees. 


After the program listing is a line by line explanation of the program. 


LQ REMKX¥XEird Caegexkx 

20 REMKXShowing use of INFUTKx 

30 MODE? 

40 M=30 

30 GOSUBZ90 

60 INPUT'"Size of bet? "fA 

70 ITF AzsM THEN 60 

SO FRINT ‘At; "You are tetting 8° 3A’ ’ 
°0 M=M-A 

100 INFUT'Hhich mumber will fell? "bE 
110 TF Beil OR BSé THEN 100 
120 FOR Cel TO 3 

130 W= 9 

140 GOSUE 330 
130 D=RNDCS&) 
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160 
170 
180 
170 
200 
z10 
> 0 
230 
240 


20 


260 


PRINT’ “ASS "Dies "3C3;" fell "3D 

IF D=B W=AtPRINT’AS; "ANG you win *"FW 
M=M+W 

GOSUE 290 

NEXT C 

GOSUE 330 

GOSUE 330 

CLS 

TF M20 THEN 30 

PRINT “CHR C1 28+RND CS) ) 3 CHRE C144 3 
"The game is over; 88 you are broke!" 
FRINT CHR&(128+RNDCG) >} 


CHRECL41)3"The game is over, &S you are broke!" 


270 
200 
270 
300 
310 
320 
330 
340 
30 
360 
370 


SOUND 1,~-15,RND¢20)+30,20 
GOTOZS0 


AS=CHRS C128+RND CS) > 

PRINTASSCHRS (14193 "°Stake is mow $"M 
PRINTAS$CHRSCL4ALIS "Stake is now $"M’ 
KEX 15,50 

TIME=0 


KEPFEAT UNTIL TIME>30 

SOUND 1,-15,RND°128)+127, 
SOUND 2,-15,RNDC1289+127, 5 
KE TURN 


10-20 REM statements for title, purpose 


30 
40 
50 


60 
70 


80 


90 
100 


Sets the Mode to 7, the normal mode when you turn your 
computer on 

Sets the variable M, which is the amount of money you 
have, to 30 

Sets action to the subroutine starting at line 290 
(sub-routines are discussed a little later in the book) 

This INPUT statement gets the size of the player’s bet 

If the player tries to bet more than he or she has, action 
goes back to line 6@ for another input 

This PRINT statement uses A$ as the colour control code. 
AS is assigned in line 29@. Assigning strings to control 
colour in Mode 7 is discussed in the section of the book on 
using the graphics 

This line subtracts the size of the bet (A) from the player’s 
stake (M) 

This INPUT asks the player to predict which number 
between one and six, will show when the dice fall 
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110 


120-200 


2190-220 
230 
240 
250-280 
290 
3090-310 


320 
330-370 


The player’s prediction is checked, and if it is greater than 
six, or less than one, is rejected, and action goes back to 
line 100 for a new input 

This loop does a number of things. The variable W holds 
the win, if any, and this is set to zero for each of the three 
rolis. Line 140 sends action to the subroutine from line 339, 
which makes a few noises, and delays a little while. A 
delay like this is often used to enhance games. Too quick a 
reaction is sometimes undesirable. Line 150 actually rolls 
the die, and line 169 informs the player of the result of the 
roll, using A$ to determine the colour of the line. Line 170 
checks to see if the number shown on the die is the same 
as the one predicted by the player, and if it is, prints out a 
win message, and assigns W to equal the size of the 
player’s bet. Line 189 adds this to the money total. If the 
player has not won on that roll, W still equals zero (from 
line 130) so the player’s total is not updated. Line 290 goes 
to the subroutine which prints out how much money the 
player now has. 

The delay/noise subroutine is called twice, to give a longer 
delay between rounds of the game. 

Clears the screen 

This checks to see if the player has any money left (i.e. if M 
is greater than zero) and, if so, sends action back to line 50 
for a new round. 

If the player is broke, prints out an endless message to that 
effect, in doubleheight letters. CHR$ (141) puts the letters 
in double size. 

Selects a colour code, which is assigned to A$ 

Prints out the money the player has left, using double 
height letters again 

Clears the input buffer. 

This is the sound/delay subroutine which is called 
throughout the program. 
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Compound Interest 


Here is another program to show the INPUT statement in action. It 
also shows the use of explicit names for variables, which make It easier 
to understand what is going on. You may well want to save this 
program on cassette, as it has a degree of practical application. 


10 REM SIMFLE AND COMPOUND 

20 KEM INTEREST 

30 CLS 

40 INFUT ’’’"PRINCIPAL",PRINCIFAL 

90 INFUT' INTEREST" ,interest 

60 INFUT “"FOR HOR MANY YEARS", YEARS 
70 CLS 


80 PRINT’ Un cn ee cs se ee te ce ere me tae ae we ee ee oe ee ee 
70 PRINT" YEAR SIMPLE COMPOUND DIFFERENCE 


110 FOR MONEY=1 TO YEARS 

120 SIMPLE=FPRINCIPAL+MONE YXPRINCIFALX(Cinterest/100) 

130 COMFPOUND=INT C1OOKXFRINCIFALX(it+tinterest/100)*MONEY)/100 
146 DIFFERENCE = INT(100x*(COMPOUND-SIMFLE))/100 

150 PRINT $MONEY; TAEB(8) $SIMPLE$ TAB( 17); COMPOUND; 

160 PRINT TAB(C27) 3DIFFERENCE 

179 NEXT MONEY 


“FUN 

FRINCTPAL? 100 
TNTEREST?8. 25 

FOR HOW MANY YEARS ?12 


OOF BOTS COLE FOOD COT COUD SLOS FETE GETS COED OSES FEET CORE BEET FEOF BESO FOES CODS SOEs BESS COEF CONS 0008 8068 coe sone COCO SOUS SCOT Cee Cone CREO SETS cone 2000 cone 


YEAR 


oLMPLE COMFOUND DIFFERENCE 

1 108.25 108.235 0 

2 1146.5 117.18 0.468 
3 124.7% 126,84 2209 
4 133 137.31 4231 
na) 141.25 148.64 7438 
& 149.5 160.9 11.39 
7 137.735 174.17 16.42 
3 1464 188.54 Zao A 
9 174625 20461 27285 
10 182.3 220.94 33.44 
ii 190.75 239,17 40642 
12 199 ess 2 3? 489 


COO COOL FBRE COE FOES C000 SCES F9OF CEST 4EEE CODD CEC CFSE BORD COO CODE 2080 SEED FEES SOUS POLE SEES EEED FOES FOOD SEES SERS 2O8S FOOD COED COS ONES CNT SETt Geen 
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This program works out compound and simple interest, for a principal 
and interest rate you determine, over the number of years you decide. 
The variable ‘interest’ is written in lower case letters to prevent the 
computer thinking it is the function INT followed by something 
incomprehensible. From time to time you'll notice that variable names 
will be rejected by the computer. This is because you will have tried to 
use a reserved word (i.e. a word from the vocabulary of BBC BASIC). 


The final program in this section on INPUT is also a useful program. 
You use it to determine the arithmetic, or harmonic, mean from a list 
of numbers which you enter when the program is running. Again, 
you'll see that explicit variable names have been used. 


Arithmetic mean 


10 REM ART THMETIC 
20 REM AND HARMONIC MEAN 
30 MODE 7 
40 FROGmenu 
BQ ROE MR SOK OOK ROKK OK KOK 
60 KEM ARTTHMETIC MEAN 
70 FRINT TABCLT2,3)03"ARITHMETIC MEAN" 
SO FRINTSOVENTER THE NUMBERS YOU WISH ME" 
90 FRINT "TO USE TO DETERMINE 
THE ARITHMETIC MEAN" 
100 FRINT "ENTER E TQ END YOUR XNFUT" 
Lid INFUT Q4 
120 IF Qé=""" THEN Lio 
130 TF Q¢="E" THEN 170 
140 SUM=SUM+VAL (CQ) 
130 TALL Y=TALLY+1 
160 GOTOLIO 
170 FRINT’ “° THE ARTTHMETIC 
MEAN IS "3SUM/TALLY 
180 FROCmernnu 
L390 REM KKK KKK 
200 REM HARMONIC MEAN 
210 FRINT TABRCIT2,3)3 "HARMONIC MEAN" 
220 FRINT’"ENTER THE NUMBERS YOU WISH ME" 
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230 
240 
230 
24) 
27D 
230 
270 
300 
310 


32.0 
330 
340 
350 
360 
37 0 
380 
390 
400 
410 
42.0) 
$30 
440 
450 
460 


FRINT "TO USE TO FIND THE HARMONIC MEAN" 

FRINT "ENTER E& TO END" 

INFUT Q4 

IF Q¢4=""" THEN 230 

IF Q$="E" THEN 310 

SUM=SUM+ C1 /VAL CQ) > 

TALLY=*=TALLY+1 

COTOZS0 

PRINT’ ’"'THE HARMONIC MEAN TS ''3 
L/(SUM/TALLY ) 

FROCmenu 

RE MOK KKK KKK X 

DEF FROCmenu 

FRINT’’"SELECT THE FROGRAM YOU WANT?" 

FRINT‘’TABCSOE"1 ~ ARITHMETIC MEAN" 

PRINT’ TABCS)3$"2 ~ HARMONIC MEAN" 

PRINT’ TABCS)3°'3 ~- TO END THE PROGRAM" 

Z2=GET 

222748 

IF Z=3 END 

CLS 

TALL Y=0 

SUM=0 

ON Z GOTO 60,200 

ENDFROC 


RUN 
SELECT THE PROGRAM YOU WANT? 


1 ~ ARITHMETIC MEAN 
2 ~ HARMONTC MEAN 
3 ~- TO END THE FROGRAM 


ARITHMETIC MEAN 

ENTER THE NUMBERS YOU WISH ME 

TO USE TO DETERMINE THE ARTTHMETIC MEAN 
ENTER £& TO END YOUR INFUT 

F100 

PL34 

?54.678 

234 

?~ 664.86 

F234 


Pk 
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THE ARTTHMETIC MEAN TS 31.9696667 
SELECT THE FROGRAM YOU WANT: 
1 ~- ARTTHMETIC MEAN 
2 ~ HARMONIC MEAN 
3 o—- TO END THE FROGRAM 
HARMONIC MEAN 
ENTER THE NUMBERS YOU WISH ME 
TO USE TO FIND THE HARMONIC MEAN 
ENTER E TO END 
P1LO0 
234 
754-2678 
P2SA 
P6564 .86 
P234 
PE. 
THE HARMONIC MEAN IS 151.494768 


GOTO 


One important ability in programming is to be able to branch to 
different parts of the program during execution. Without this, the 
program would always run from the lowest line number to the highest, 
and then stop. One statement which allows you to move around the 
program at will is GOTO. The GOTO statement consists of a line 
number followed by the word GOTO and another line number, or 
followed by a calculation (such as GOTO 2*X, or GOTO 200+ 3490). 


If the computer came across 149 GOTO 199, it would jump 
immediately from line number 140 to line 19@. This is called an 
unconditional branch. That is, it is a jump that does not depend on the 
existence of any condition. Once at line 190, the program continues to 
execute in order, until it comes to the end, or comes to another line 
directing it somewhere else. 


You can use GOTO to produce programs which run for ever. These 


can be quite effective, especially at the end of a game. Run the 
following to see this in action: 


10 FRINT “YOU HAVE WON! ! !! "3 
20 GOTO 10 
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IF..... THEN GOTO 


The IF statement has a similar function to GOTO, but it will only 
reroute the program IF certain conditions are fulfilled. This creates a 
conditional branch. The IF statement is made up of a line number 
followed by the words IF and GOTO separated by a relationship which 
must be determined before leaving the line. There are six relation 
operators which can be used to compare two variables. These are: 


equal to 

greater than 

less than 
> not equal to 
= greater than or equal to 
= less than or equal to 


AVAAYN | 


These operators are used to connect the IF..... THEN statements to 
form the condition to be determined. 


Here’s an example: 
70 IFZ>= 10 GOTO 100 or 70 IF Z> = 10 THEN 100 


This will be read by the computer to mean IF the value of the variable Z 
is greater than, or equal to, 10 THEN the program will branch to line 
100. If Z us less than 10, the program will continue normal execution, 
with line 80. 


This gives the computer decision-making power, the real source of a 
computer’s apparent ability to think. You can use IF...GOTO to 
terminate a ‘win condition’ message such as we used before after a 
certain number of cycles. Enter and run the following: 


10 xX=0 

20 PRINT “YOU HAVE WON!E! ET! "Ss 

30 KX=X+1 

40 TF X225 GOTO 20 

This will ensure that YOU HAVE WONII!! ts printed out a limited 
number of times. 

IF... is not just used to branch to new lines. NEW the program, and 


enter the following. You'll see it has a similar effect, although the 
IF.... is not just sending the program to a line number. 
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10 X=0 
20 X#X4+1 
30 IF X25 PRINT "YOU HAVE WONTIEH! 3 
40 GOTO ZO 


This program is not as useful as the other one, as it will not terminate 
even when it has finished printing out YOU HAVE WONI!!! You can 
easily discover this by running it, then pressing ESCAPE, and then 
PRINT X, RETURN. 


This does not stop the program from demonstrating that IF can be 
followed by a number of commands. You can chain the results of an IF 
statement. If the initial condition is false, the computer will forget that 
line, and move onto the next one. Try this example: 


10 X= 

20 X=A+] 

30 TF X225 FRINT "YOU HAVE 
WONT EES "32?GOTO 20 

40 END 


This will only execute the jump back to line 2@ if X is less than 25. The 
PRINT message and the GOTO 29 are both conditional on the result of 
the IF statement. If X is not less than 25, the computer will not process 
the rest of the line, but will move onto line 40, to END. 


The BBC Microcomputer is a little more tolerant of syntax in 
statements than are many other computers. The word THEN is implied 
in an IF statement (IF the cat is hungry THEN feed it), but it is not 
necessary to include it. IF X = 25 THEN GOTO 49 is accepted, as is IF 
X = 25 GOTO 4@ and IF X = 25 THEN 490. 


It is perhaps worth mentioning that, in other areas, the BBC machine is 
a fairly dogmatic creature. If you specify that a program branch is to be 
made only if the value of Z, for example, is equal to 6, the program will 
continue in a never- ending loop if Z is not exactly equal to 6, no matter 
how close it is (like 5.999999). If you think the value might be 
fractionally different from the one you want as a condition for 
branching, make sure you specify that the relational operator should 
be, say, greater than 5.5, or greater than or equal to 5.9, rather than 
just equal to 6. 


To show the flexibility of the IF statement, enter and run the following 
program, then return to the book for a discussion of the various parts 
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of the program. This game is based on one which was played in the 
film ‘‘Last Year at Marienband’’. There are a certain number of 
‘matches’ at the start of the game, and you and the computer take it in 
turns to take one or more away. The maximum number you can take is 
shown at the top of the screen. The player who takes the last match 
loses. The computer is not infallible. 


Matchsticks 


10 REM xMATCHSTICKSx 
£0 E=0¢$Z=15+RND(9) SCLS 
30 IF 2K(Z/2)=Z THEN Z=Z+1 
40 H=Z2+RND (2) 
“0 FRINT “/"MAXIMUM TO TAKE IS "fH/ 
60 IF £50 PRINT “YOU TOOK "3E3 
TABC2Z003"I TOOK "Q’? 
70 FOR K=1 TO 2 
SO FRINT Ks" "3 
90 IF RND(4)=1 PRINT 
100 NEXT K 
110 INFUT’"HOW MANY WILL YOU TAKE",€ 
120 IF ESH OR E<1 THEN 110 
130 CLS$Z=Z-E 
140 IF 2=0 PRINT’ ’’°"T WIN" TEND 
130 Q=Z-1-INTCCZ-1)/¢CH+1) KC Ht+1>+RNDC4)-1 
160 IF QZ OR Q=1 OR QSH THEN 150 
170 Z=Z-Q 
180 TF 2=Q0 PRINT ‘’"I TOOK "3 
Qs", SO YOU WIN" END 
190 GOTO 50 


Here is a sample run of it: 


MAXIMUM TO TAKE IS 3 
1 2 


8 9 10 11 12 
13 16 17 18 19 
HOW MANY WILL YOU TAKE?3 
MAXIMUM TO TAKE IS 3 
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YOU TOOK 3 I TOOK 3 
1 2 
3 4 5 6 
7 8 
9 10 ii 12 13 
HOW MANY WILL YOU TAKE?2 
MAXIMUM TO TAKE IS 3 
You TOOK 2 I TOOK 3 
1 
2 3 4 5 6 
HOW MANY WILL YOU TAKE?1 
MAXIMUM TO TAKE IS 3 
YOU TOOK 1 I TOOK 2 
1 2 3 4 5 
HOW MANY WILL YOU TAKE?1 
MAXIMUM TO TAKE IS 3 
You TOOK 1 I TOOK 3 
1 
HOW MANY WILL YOU TAKE?1 
I WIN 
10 Title 
20 Assigns the variables, E is the number of matches taken by 
the human player, Z is the starting number of matches 
30 This IF statement checks a condition, and if it is so (i.e. Z is 
an even number) adds one to it 
40 Assigns a value of 3 or 4 to H 
50 Prints out the value of H 
60 If the human has made a move (i.e. E is greater than @) 
then PRINTs 
70—100 Prints the numbers corresponding to matches left, using 
the IF in line 9@ to randomly start a new line 
110 Accepts the player’s input 
120 Uses the IF statement to check the validity of the player’s 
move 
130 Clears the screen, deducts the player’s number from the 
matches left 
140 Uses an IF statement to see if the game is over. The END is 
ignored if the IF condition is found to be false 
150 Works out the computer’s response 
160 Uses an IF statement to check three conditions, any one of 
which (if true) would mean the computer had thought of 
an illegal move. If any of these three conditions is 
evaluated as true, the computer returns to line 150 for 
another move 
170 Subtracts the computer’s move from the matches 
180 Uses an IF to see if the number of matches is zero, and if it 
is concedes defeat, and ENDs 
190 Sends action back to line 50 for another round 
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IF... THEN...ELSE 


The BBC Microcomputer’s dialect of BASIC contains a very useful 
variation of IF. It can be programmed to do something if the condition 
being tested for is found to be true, and something else, other than 
just go to the next line, if the condition is found to be false. Try the 
following, entering a series of numbers from one to nine. Line 1020 
determines that any number except five triggers the message THAT 
WAS NOT FIVE, and entering FIVE triggers THAT WAS FIVE. Notice 
that the THEN is not needed in the line, although its presence is 
implied. 


1000 REM IF THEN ELSE 

1010 INFUT"ENTER A NUMBER FROM ONE TO NINE"A 

1020 IF A=5 FRINT "THAT WAS FIVE" ELSE FRINT "THAT WAS NOT FIVE" 
1630 GOTO 1010 


Graphs 


You can use IF...THEN...ELSE to produce some very interesting 
graphs. You simply enter the function you would like graphed, in 
terms of X, in line 100. This is not the most efficient method of 
graphing on the BBC Microcomputer, but it is useful at this point to 
illustrate IF... THEN...ELSE. Try the formulae given, then create a 
few of your own. It is probable that you will have to change the scaling 
for certain formulae. 


10 REM GRAFH 

20 MODE? 

30 REM Enter the function you would like 
40 REM graphed, in terms of X; 

SO REM and Ys, im line 100 

60 FRINT 

70 FOR ¥=10 TO - 10 STEF ~-1 

80 FRINTY} 

90 FOR X=-10 TO 10 

LOQ TF Y~-X*X<.5 PRINT "x" ELSE FRINT "."3 
110 NEXT X 

120 FRINT 
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130 NEXT ¥ 
140 PRINT TABC1O)3"098765432101234567890" 


FUN 

LU KKKKRKMH og woe ee MKKKKKM 
DKK KM MOK HK so oo gg RK KKKKKK 
£3 KKK KKK Ms oo ee RK KR KMKKK 
7 RRMKK KKK 5 og ne oe MK KKMKKK 
OK KKK KKK 6 ng ee RMRKKK KKK 
KKK KKK oo ggg MKKK KKK K 
4K ORK IK ROK NOK og 9 KKK KKK KKK 
3K KKK KOK NOKIK ggg KKK OK KKK OK 
a2 OK KK KOK KK gg o KK KK KKK KK 
“LK KKK ROKK BOK. OOK KK OK OK KOK 
(9K 9K 9K OK 2K MOK KKK 9K KK KOK OK KKK 
wwe “EK KK KK KOK KOK OK KOKO KOK OK OK KOK OK 
woes 22K AK OK XKCD DK CK 2K OK OK OOK 
wenn BK KC HCCC COC 3K 2K KK 2K OK KOK KKK 
wom AB EK OC RCC OK OK DK CCK KOK KOK OK 
wee FF OK SKK KK EK CO KOK OOK KOK OK 
woes by HE KICK COCK CHC OK OK OK OKOK CK 
wee FIR OOK HK NOOK OK KK KOK OK OKOKOK 
wom © IK DK KOK 7K CHC DC I KOK 
woes GK CK KOK KOK CCC COC OK 9K 9K 0K 2K 
seco “h(E KCK CK NC KOK OC OK OK KOK OK 
098765432101234567890 
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i100 IF 
RUN 
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FOR/NEXT loops 


FOR/NEXT loops are additional useful parts of your BASIC working 
tools on the BBC Microcomputer. It makes sense to study them now, 
because the last series of programs relied heavily on two FOR/NEXT 
loops, the Y loop which started at line 7@ and end at 130, and the X 
loop which ran from line 9@ to line 118. Because these are slightly more 
complex than the simplest FOR/NEXT loops, we'll leave the 
discussion of those alone for the time being. 


A FOR/NEXT loop is made up of two statements used to control a 
series of cycles of a part of a program. FOR begins the loop, specifying 
how many times the loop is to be executed, and the NEXT statement 
occurs at the end of the sequence, returning the program to the 
statement line following the one containing the FOR command. 


FOR statements are made up of the line number, following by the 
FOR, a numeric variable (a single letter, or any combination of letters 
and numbers starting with a letter, but without punctuation marks or 
symbols), an equals sign, a numeric expression (a number, or a 
previously assigned numeric variable), the word TO and finally, 
another numeric expression (number of previously assigned numeric 
variable) which is different from the first one. That may sound 
incredibly complicated, but it is really quite simple. 
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The FOR line reads: 

100 FOR J = 1 TO 100 

or 

100 FOR CAR = ATOB 

The NEXT line, which terminates the loop, is of the form: 
200 NEXT J 

or 

200 NEXT CAR 


You can omit the control variable (the J or the word CAR) after the 
word NEXT, but it is best in the early stages of your programming to 
keep it there, just so you know what is going on. 


The NEXT statement then, is made up from a line number, the word 
NEXT, and the variable set as the control in the FOR statement, earlier 
in the program. The NEXT sequence is used solely to tell the computer 
when the sequence of programming which is being repeated is to stop. 
When the value of the control variable (J or CAR) reaches the value set 
in the FOR statement (the second numeric variable set in the FOR 
statement), the program passes through the loop for the final time and 
then continues with the line following the one containing the word 
NEXT. 


Enter and run these simple examples: 


10 FOR A=1 TO 10 
20 FRINT »A;2*A,;AKA 


30 NEXT A 
“RUN 
1 1 
fd 4 4 
3 & 9 
4 8 14 
wd 10 ree) 
& 12 36 
- 14 49 
8 14 &4 
9 18 Bi 
10 29 100 


10 AS 

20 B=16 

30 FOR conmtrol=A TO & 

40 FRINT ;conmtrol,2x*xcontrol,control’2 
JO NEXT control 


“RUN 
wl 10 raw) 
& 12 36 
? 14 49 
& 14 é4 
Y 18 3 1 
10 20 100 
11 ras 121 
12 24 144 
13 26 149 
14 293 196 
1S 30 ad 
1é Ba 230 


In the first example, the control variable is A, and line 20 prints out A 
itself, two times A and A squared. Note that the limits of the control 
loop are stated explicitly in line 10 (1 TO 10). In the second example, 
the control variable is a word, ‘control’. It performs exactly the same as 
A does in the first example, with line 4@ printing out the value of 
control, or two times control, and of control square. Notice that the 
little up arrow (found two keys to the right of the zero key) means 
‘raising to the power’, so using this arrow followed by a 2 is the same 
as multiplying something by itself (as at the end of line 29 in the first 
example). 


Note that the limits of the FOR/NEXT loop are two variables, A and B, 
which have been previously defined. You will find there are many 
programs when you will want a limited FOR/NEXT loop, with the 
limits a result of things that have occurred elsewhere in the program. 


Nested loops 


As you've just seen, a FOR/NEXT loop allows us to alter the value of 
one variable (by a count of one in the cases we’ve studied), to repeat a 
programmed series of events a specified number of times. Now, 
suppose there were two or more variables to be operated upon. In this 
case, you would need to vary both values. This can be done quite 
simply by nesting loops, in which one loop, controlled by one set of 
FOR/NEXT statements, operates within another set. 


Enter and run the following program, which nests a B loop within an A 
loop. It also contains a third loop (M), to slow things down, but the 
important loops for this demonstration are A and B. 


10 REM FOR/NEXT - NESTED LOOFS 

20 FOR A=1 TO 12 

30 FOR &=1 TO 12 

4Q FRINT 63" times "FAs" as "SAKE 
20 NEXT & 

460 FOR M=1 TO LO002NEXT M 

70 FRINT’ 7?’ 

oO NEAT A 


When you run this, you'll see it prints out the multiplication table, from 
1X1,to 12X12, pausing slightly between each set of numbers. The M 
loop puts the pause between each set. Part of the run is: 


%*# times 7 is 28 
ow Limes 7 is 35 
& tines 7 is 42 
/ tines 7 is 49 
GS times 7 is 54 
9 times 7 i156 63 
LQ times 7 is 70 
Li times 7 is 77 
IZ times 7 is 84 


1 times 8 iss 8 
“ tines 8 is 14 
3 times 8 is 74 
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4 tines 8 is 32 
“4S tines G is 40 
6 times @ is 48 
? times 8 is &4 


In this program, the control variable A stays at one, while the loop 
controlled by B runs from one to 12. After the pause (line 6@), the 
control variable A increases by one, and the B loop runs through 
again, this time with the A equal to two, and so on, until the B loop has 
run through with the A equal to 12. There is no reason why you should 
have only two nested loops. 


It is vital that the control variables of nested loops be in the correct 
order, that is, the first loop begun is the last one to end. Try swapping 
lines 50 and 8@ of this program,and see what happens. You should find 
it prints out the ‘one times table’, and then stops with the error 
message ‘No FOR at line 8Q’. 


Remember that the control variable for the NEXT statement need not 
be stated when programming on the BBC Microcomputer. The clever 
machine automatically knows which NEXT corresponds with which 
FOR, thus removing the possibility of incorrectly nesting loops. 
Change lines 5@ and 8@ into just NEXT, and delete the M from the end 
of line 69. You should find the program runs perfectly. Although you 
can omit the NEXT control variable, | repeat the suggestion given 
earlier to leave it in, just to make it clear in your mind what is 
happening. 
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STEP 


For this next discussion, we need the program TABULATOR ROCKET 
RANGE which was introduced earlier. You'll recall | suggested that 
you should save it on tape so you could load it in again when needed. 
in case you did not do so, here is the listing again. 


16 REM TABULATOR ROCKET RANGE 

20 MODE? 

S20 FOR J=10 TO 1 STerF «1 

40 FRINT 777.) 

a0 T= TIME 

S0 REPEAT UNTIL TINE-Te30 

?Q WEXT J 

BO REPEAT 

SO QeRNDCS9 24] 
100 Us1L28+RND CS) 
110 FOR roecket=1 TO 7 eREAD ROCKETS 
120 FRINT TAR COI SCHR C1 2995 °C" TAB COQ) SCHEE CUD § 

ROCKET#&$ TAB C346) 3 CHREC L295 fa" 

120 NEXT rocket 
140 T=TIME 

150 REPEAT UNTIL TIWE-T=2 
160 SFACE =FNDC10) 
170 SOUND 146,;-RNDCS)-1LO0,.RND(3)-1,RNDCZ03 
180 FOR print=1 TO SPACE 
L?0 FRINT TACO FCHRS C129 SCM STAR CBZ IE" 
200 NEXT print 
£10 RESTORE 
e220 T=TIME 
2o0 REFEGT UNTIL TIME-T=2 
240 UNTIL FALSE 
200 DATA " + My tbe t 
£60 DATA ' tte US tee 
270 DATA TH he oh mye on Oe 
200 DATA " <> " 


The important lines for our discussion at this point are 30, 40 and 79. 
You'll see when you run the program that this causes the numbers 10 
down to 1 to appear on the screen. The word STEP (in line 30) after 
the 1 controls this. Change the —1 following the word STEP to —2, 
and see what happens. If no STEP is specified, the computer assumes 
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you want a positive STEP of 1, which is what has been needed in the 
earlier examples in this section. 


The STEP command, then, is used within a FOR/NEXT loop to allow 


the user 


to specify the value of the increment (or decrement) of the 


control variable. The STEP does not have to be a whole number, 
although you must ensure — if the number which follows the word TO 
in the initial FOR statement is lower than the number before the TO — 
that the STEP is negative. Try the following examples: 


10 

29 

30 
RUIN 


10 

20 

30 
“RUN 


FOR A=100 TO 1 STEP «12.5 
PRINT A 
NEXT A 


100 
B87 oi 
Fo 
62635 
tO 
BF 4d 
favs 
Le 


FOR A=1l0 TO 1 STEP -0,.719 
FRINT A 
NEXT A 


10 
9.291 
8.62 
7 +843 
72124 
6-405 
34 O36 
4ePh? 
4.248 
3429 

2+ O31 
2-091 
1.372 
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REPEAT/UNTIL 


Whereas a FOR/NEXT loop should always run its full course, another 
pair of statements — REPEAT/UNTIL — are available on the BBC 
Micro which will cycle through a loop only until a specified condition is 
satisfied. You'll see, if you look back at the listing of TABULATOR 
ROCKET RANGE, in lines 50 and 60, the REPEAT/UNTIL sets a 
variable T to equal the value of the internal clock (TIME), then holds 
the program with a REPEAT UNTIL until the difference between T and 
TIME is 5@. Also within this program is a master REPEAT/UNTIL loop, 
which starts in line 8@ and terminates (UNTIL FALSE) in line 240. A 
REPEAT loop which terminates with UNTIL FALSE will run for ever, or 
until BREAK is pressed. 


10 MODE? 

20 REPEAT 

30 GCOL O;RNDC1L46)-1 

“40 MOVE RND¢1280),RND61024) 

“0 PLOT 83,RND(1280) ,RNDC1024) 
60 UNTIL FALSE 


You'll find this simple program (which you should run in Mode 2 
changing line 19 to Mode 5, if you have a Model A) produces a 
splendid demonstration of chaotic triangles. Note that the REPEAT 
(line 20) and UNTIL FALSE (line 60) makes the program run forever. 


Now try the next program, which uses the UNTIL as a specified 
control. The program is written for a Model B machine, but will work 
adequately in Mode 5 on a Model A. It produces some startling results, 
as though a stone has been thrown at the centre of the TV screen. 


10 REM *X*Eroken eglassxxKx 
20 REFEAT 

30 MODDED 

40 REFEAT 

“HQ AZRND C8) 1. 

60 E=KRNDCB)-4 

70 UNTIL ASE 

$0 VYVBU 19,0,6,0,0,0 
90 VDL 19,1,8,0,0;0 
100 REFEAT 

Li0 C=#RNDC1280) 

120 D=RNDC1024) 
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130 MOVE 640,500 

140 DRAW C,D 

190 UNTIL RNDCSOQ)=25 
160 UNTIL FALSE 


There are three REPEAT/UNTIL loops. The first one starts at line 20 
and terminates at line 160. This is the master loop, which continues for 
ever. The second loop starts in line 4 and ends in line 70. A and B, the 
random numbers calculated in lines 50 and 60, control the foreground 
and background colours for the ‘broken glass’, and this loop cycles 
until A is different from B (see line 70). The third REPEAT/UNTIL 
operates from line 100 to 150, and cycles until the random number 
generated in line 15@ is 25. You can work with this program to produce 
a number of variations. One variation would ensure that every line 
plotted was in a random colour, so that the background changed 
colour slowly, but the foreground colour changed for every line. 


GOSUB and RETURN 


A subroutine is a block of program within a larger program which 
performs one specific task. The main program is executed, line by line, 
until the subroutine is called, by the GOSUB command. The computer 
goes to the specified number, works through in line order from that 
point, until it hits the word RETURN. This is the signal for the 
computer to return to the main program, to the line after the one 
which sent it to the subroutine. 


A subroutine is useful if a particular set of calculations has to be carried 
out a number of times within a program, and at different places within 
the program. For example, in a financial program, there may be a 
number of VAT calculations to be done at different points within the 
program. Whenever this need arises, the program is told to GOSUB, 
and it stays in this subroutine until it hits the word RETURN, when it 
returns to the line after the GOSUB command. 


A subroutine is written exactly like the main program, except that it is a 
program within a program, and is bounded by two lines, one 
containing the GOSUB and the other is the RETURN line. The GOSUB 
command is made up from a line number, followed by the word 
GOSUB, and another line number. The line 40 GOSUB 10 tells the 
computer to branch to line 10@ and continue executing the program in 
order, just as if line 40 had said GOTO 100. However, when the 
program reaches a line containing the word RETURN, the action 
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reverts to the main program, at the line number which follows the one 
containing the GOSUB statement (in this case, the first line number 
after 40). 


A simple example, showing GOSUB and RETURN, is as follows. Enter 
and run it a few times, then come back to the book for a discussion on 
it. 


10 REM €KXXgosub/returnm Gemokxx 
£0 CLS 

SO REFEAT 

40 INPUT’ “’"Enter @ mumber "&éA 

~0 GOSUE 100 

60 UNTIL FALSE 

70 FOE KKK KOK KOK KOKOKKOKK 

S0O REM Subroutine follows 

90 REM KKK KKK KKK K KKK 
100 FRINT “"Your mumber is "iA 
110 FRINT ¢A3" squared is "tAxA 
120 PRINT “The square root of "fA 

$4 is $8 4 5 

130 RETURN FSARCAD 

= FRLIN 

Enter 3a mumber 4573 

Your mumber is 4573 

4573 squared is 20912329 

The square root of 4573 is 67.4239603 


After line 20 clears the screen, lines 30 and 60 set up the master 
REPEAT/UNTIL loop. Line 4@ asks you to enter a number, using 
INPUT, then line 5@ transfers control to the subroutine starting at line 
100. The required calculations are carried out, and the results of them 
printed, within the subroutine, then line 13@ returns control to the line 
after the one which sent control to the subroutine that is line 60. As 
line 60 is the termination of the REPEAT/UNTIL, action goes back to 
line 40, where a new number is requested, and the whole merry dance 
begins again. 


Enter and run the following program, which plays a kind of 
BLACKJACK, to see subroutines doing something a little more 
interesting than the demonstration we’ve just run. 


The card game Blackjack is, as | suppose you know, pretty popular. In 


his book Beat the Odds, Microcomputer Simulations of Casino 
Games, (Hayden, 1980), Hans Sagan says it is “probably the most 
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popular and widely-played banking card game in the States. It is 
played in gambling houses, private clubs, political clubrooms, 
barracks, troops transports, back rooms of all kinds, and places you 
may never have heard of’’. With a recommendation like that, how 
could the program fail? 


Mr Sagan’s opinion is backed up by John Scarne, who points out in 
his authorative work Scarne’s Encyclopedia of Games: ‘Blackjack is 
the most widely-played banking card game in the world’. Sagan 
points out that Blackjack is ‘‘the one casino game where the player 
may have a chance”’. Part of that chance is based on the fact that the 
cards removed from a pack as a game is played change the odds of 
other cards appearing — and knowing the odds can be of some benefit 
in deciding what to do. The player’s slight advantage is stymied in this 
version, because the BBC Micro has somehow acquired an infinite, 
constantly-replenished deck of cards. 


Despite this, the computer plays reasonably well, and will certainly 
give you a run for your money. There is no direct betting in the game 
and this is a feature you may well want to add in due course. You may 
also, when you feel confident of your programming ability, change the 
program so that it goes through a pack of cards before there is a need 
to reshuffle. Enter and run the program, then return to the book for a 
discussion on it. 


10 REM XxXBlack jack «x 

20 REM Xx(C) Hartnell 1982«x 

30 EBS="The BEC Microcomputer has " 

40 C%="The mere human has " 

00 M=0:MODE7 ?-CGOTO2Z30 

60 CA=RND(11)3IF M20 PROCsketch 

70 IF CA=11 AND D+CA>21 CA=1 

80 D=D+CA 

90 IF M?1 AND CA<*1 AND CA<11 FRINTCHR$ (128+ 
RND(6));3;CA3" has been dealt” 

109 M=M+13RETURN 

110 CA=RND(11)°3PROCsketchi!IF CA=11 AND E+CA>Z1 CA=1 

120 TIME=0$REPEAT UNTIL TIME>100%3B=E+CA 

130 IF M>i AND CA<>1 AND CA<11 PRINTCHR$(128+ 
RND(6));CA3'' has been dealt" 

140 RETURN 

150 Z=128+RND(64) 

160 PRINT‘’CHRS(Z)3"Enter A for another card" 

170 FRINT TAE(3)$CHRS$(Z)$"or S to stand” 

180 G=0:3C$=CETS$%G=—-(Gs=""A") 

190 RETURN 

200 PRINT ’’ ’CHR$(128+RND(6))3"Do you 
want another game? (Y or N)" 

210 AS=GETS2IF ASC(A$)<> ASCC"N") RUN 

220 FRINT ’’’ “CHR$(128+RND(6))$"0K, thanks for Playing"? 
SOUND RND(3),-15,RND(100),1260T0220 

230 PRINT’ ’ ’ $D=0$B=0 !GOSUE4602H=CA 

240 GOSUE460? A=CA?GOSUE1103E=CA 

250 GOSUB1103F=CA 


61 


250 
270 
280 
290 
300 
310 
320 
330 


340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
4350 
460 
470 
480 
490 
700 
310 
u20 
330 
340 
JOO 
760 
370 
980 
379 


PRINT ’CHR$(128+RND(6)) 5S BS5H 

PRINT ’CHR$ (1 28+RND( 6) 03 CS3ES" and “fF 
PRINTCHRS (1 284+RND(46)) 3 "totalling "JE+F 

D=H+A3 B=E+F 

GOSUBISO:IF G=1i THEN 389 

IF D<iZ THEN 430 

IF D<>21 PRINTCHRS$(128+RKND(46)) 3B$3D’CHR$(128+RND(46)) 5 CS5E 
IF B=D AND B<221 FRINTCHR$(126+RND(4) ) 3 

"so this round is a" $CHR$(1284+RND(4))$"draw" 

IF &221 OR D>21 THEN 200 

IF BSD PRINT ’CHR$(128+RND(6)) 3 TABC9) S"You win!" 
IF B<D PRINT’ CHR$(128+RND(46))>3TABCL1)935"©L win!" 
GOTOZ00 

CGOSUEB1i10 

FRINT CHR (128+RND(6))>;CS$$CA3", total is "3B 

IF Bs21 PRINT CHR$(129)3"You’ve busted, so I win'!'"3GOTOZ00 
CGOTO300 

TIME=O3REFEAT UNTIL TIME>150 

PRINT ’CHRS$(C128+RND(46));3B$3D 

TIME=O0;REFEAT UNTIL TIME>150 

COSUES66 

PRINT CHRS$(128+RND(6))3"The total is now "3D 
JIME=O03REFPEAT UNTIL TIME>100 

IF D>21 PRINT CHRS(129)3"I’ve busted, so you win'!''":3;60TO200 
IF D117 THEN 450 

COTO 320 

END 

DEF FPROCsketch 

IF CA=1 FRINTCHR$(129)3;"ACE" S ENDF ROC 

IF CA<11 ENDFROC 

T=RND(3) 

IF T=1 FRINT CHR$(130)3 "Jack" 

IF T=2 FRINT CHR$(131)3 "King" 

IF T=3 FRINT CHRE(132)3;"Queen" 

ENDFROC 


RUN 

8 has been dealt 

3 has been dealt 

Tne BEC Microcomputer has 2 
The mere human has 8 and 3 
totalling if 

Enter A for another card 


or S to stand 


5 has been dealt 
The mere human has 5S, total is 16 
Enter Aa for another card 


or S$ to stand 


3 has heen dealt 
The mere human hes 3; total is 19 
Enter A for another cara 


or S$ to stand 
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The BEC Microcomputer has il 
u nas heen dealt 
The totsel is mow 164 
8 has beer dealt 
The total is now 24 
I’ve busted, so you win! ! 
Do you want another game? (CY or WN) 
6 nes peen dealt 
4 hes heen dealt 
The BEC Microcomputer has 6 
The mere fiuman has 6 and 4 
totalling 10 
Enter A for another cara 
or 5 to stand 
6 hes been dealt 
Tne mere human hes 6, totel is 16 
Enter A for another card 
or S$ to stand 
The BEC Microcomputer hes 13 
2 has peer dealt 
The total is mow 15 
ACE 
The totel is now 16 
G8 has heen dealt 
The total is mow 24 
I’ve pusted, so you win!!! 
Do you want another game? (CY or N) 
9° hes been dealt 
Yo fees been dealt 
The BEC Microcomputer has 3 
The mere human has 9 and & 
totalling 14 
Enter A for another cara 
or S to stand 
3 hes beer dealt 
Tne mere human nas 3, totel is 17 
Enter A for another card 
or S to stand 
The BEC Microcomputer has & 
6 36 heer dealt 
The tote] 16 mow 14 
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3 hes been dealt 

The totel is mow 17 

The BEC Microcomputer has 17 
The mere human has 17 

60 this round is edreaw 

Do you want another eame? CY ar N) 
OK, thanks for playine 

OK, thanks for playing 

OK, thanks for playing 

OK, thanks for playing 

OK; thanks for playing 


Look at line 23@. It includes an instruction to GOSUB 69. Referring to 
line 60, we see CA= RND(11). CA is the card from one to 11, with one 
as an ACE, and eleven a picture card. Line 7@ checks to see if the 
number dealt is an eleven, and if it is, checks to see if this would bring 
the total over 21. If it does, the eleven is changed to a one. Line 100 
includes the RETURN instruction, which sends action to the H=CA at 
the end of line 230, the instruction after the one to GOSUB. The 
computer is well able to find a RETURN destination like this buried 
within a multistatement line, but the GOSUB destination must always 
be at the start of a line. Your programs will be much easier to read if 
they do not include any multistatement lines, but will take up more 
space than necessary. It may well be worth writing a program initially 
in single statement lines, then ‘tightening it up’ later, by joining lines 
together. 


ON GOTO....ON GOSUB 


The word ON, preceding either GOTO or GOSUB, produces a special 
kind of branching, related to the IF/THEN result. An ON...GOTO or 
ON...GOSUB statement is made up from a line number followed by 
the word ON and the result of a previous calculation. This value is 
followed by the words GOTO or GOSUB and a list of numbers, 
separated by commas. 


For example 150 ON X GOTO 200,300,400,559 will send action to line 
200 if X equals one, to line 300 if X equals two, to 400 if X equals 3 and 
to line 550 if X equals 4. 


When a GOSUB is used instead of a GOTO command, the same thing 
happens as with an ON...GOTO, except that at the end of the 
subroutine, action reverts to the line after the ON...GOTO. Try the 
following simple example: 
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10 REMAKOM gosub demoxx 

‘0 REPEAT 

30 X=RNDC3) 

40 FOR Jel TO SOOQSNEXT J 
20 ON X GOSUE 70,970,110 

60 UNTIL FALSE 

70 PRINT “ONE” 

80 RETURN 

90 FRINT "TWO" 


100 RETURN 
110 FRINT "THREE" 
120 RETURN 


TWO 
TWO 
TWO 


THREE 
THREE 


TRO 
ON 


THREE 


This routine converts the value of X generated randomly in line 3@ into 
a word, using the ON...GOSUB in line 50. 


Finally in this section, here are two ‘poetry’ programs which use 
ON...GOSUB (see line 80) to randomly join words together. As you 
can see from the sample runs, the ‘poetry’ produced is pretty awful, 
although some lines (such as SPIRIT 1S NEAR HUMAN HIGHROAD) 
suggest a new era in the creation of old wise sayings. 


10 
20 
30 
40 
30 
40 
7 0 
& 0) 


70 
100 


REM *KXPoet xxx 

REM Showing ON GOSUE 

FOR J=1 TO RNDCS) 

PRINT 

NEXT 

TIME=O0tREFEAT UNTIL TIME>40 

D=RND CLS) 

ON DO GOSUB 110,120,130,140,150,160, 
170,180,190,200,210,220,;230,230 

TIME“Q?REFEAT UNTIL TIME?9 

TF RNDC3)=1 THEN 30 ELSE 70 
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110 PRINT'WATCHING "3 ¢RETURN 
120 FRINT"HUMAN "3 ;RETURN 
130 PRINT"DWELLING "3; RETURN 
140 PRINT'IS NEAR “3; $RETURN 
150 FRINT'FEARING "$3 ¢RETURN 
160 FRINT'SPIRIT "$$ RETURN 
170 PRINT"ALIEN "3; ;RETURN 
180 FRINT'SMORY "3; ;RETURN 
190 PRINT'HIGHROAD "$3 RETURN 
200 FPRINT'SELF "3 SRETURN 

210 PRINT"DREAMER "3 ¢RETURN 
220 PRINT'COMES "3; SRETURN 
230 FRINT'WAITS THEN FOR "3 SRETURN 


“RUN 

SELF FEARING SMOKY 

SELF 

DWELLING SMOKY 

WAITS THEN FOR IS NEAR 

SPIRIT IS NEAR HUMAN HIGHROAD 
WATCHING 

SELF SPIRIT HIGHROAD SFIRIT COMES 
SELF DWELLING 

SMOKY ALIEN SPIRIT 

SELF SELF WAITS THEN FOR 

IS NEAR HUMAN HIGHROAD 

FEARING DREAMER 

COMES 

WATCHING DREAMER WAITS THEN FOR COMES SMOKY 
DREAMER 

SELF HUMAN 

HUMAN HIGHROAD ALIEN SMOKY IS NEAR 
HIGHROAD COMES 

FEARING DREAMER SMOKY WATCHING 
FEARING SFIRIT WAITS THEN FOR SMOKY 
FEARING HUMAN IS NEAR 


10 REM XXXFPoetxxx 

20 REM Showing ON GOSUE 
30 FOR J=1 TO RND(3) 

40 PRINT 
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JQ NEXT 

60 TIME=O93 REPEAT UNTIL TIME? 40 

70 D=RNDC13) 

80 ON Db GOSUE 110,120, 130+ 140, 150,160,170; 

180,190,200,210,220,230,230 

90 TIME=O0¢REFEAT UNTIL TIMES 

100 IF RNDC3>=1 THEN 30 ELSE 70 

L110 FPRINT'VERDANT GLADES "3? RETURN 
120 FRINT WHISPERING HILLS "3 2 RETURN 
130 FRINT'SOF FRE TURN 

140 FRINT'HUSHED "3 RETURN 

120 FRINT'SHADQWED ny ER "> SRETURN 

140 PRINT SILENT "3 sRETURN 

170 PRINT PATHWAY "3 7RETURN 

180 PRINT'LEAVES “3 3RETURN 

190 PRINT'WAVING "3 7RETURN 
200 FRINT'FALLING "3 RETURN 
210 FRINT'YEARNING “3; sRETURN 
£20 FRINT LOVERS "3 S-RETURN 
230 FRINT' TREADING SOFTLY "$3 7RETURN 


LOVERS 

LOVERS 

WHISPERING HILLS 

TREADING SOFTLY VERDANT GLADES HUSHED 


HUSHED FALLING TREADING SOFTLY 
VERDANT GLADES FATHWAY VERDANT 


VERDANT GLADES VERDANT GLADES 
PATHWAY 


LOVERS 


WAVING LOVERS PATHWAY 
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WHISPERING HILLS 
VERDANT GLADES YEARNING WHISPERING HILLS 


HUSHED 


LEAVES 


LOVERS STLENT 
VERDANT GLADES YEARNING WHISPERING HILLS 
TREADING SOFTLY VERDANT GLADES 


LEAVES FALLING TREADING SOFTLY 


DIM and ARRAYS 


The DIM statement is used to set up a /ist which you can easily access. 
You may find it necessary, in some programs, to refer to elements of a 
long list of numbers, such as if you INPUT a quantity of DATA, and 
you wish to use it in certain ways, such as PRINTing it in order or 
magnitude. 


An ARRAY is a set of memory spaces reserved in the computer, and 
referred to by the name of the array, and by a subscript. To produce an 
array to hold three elements, you enter DIM A(2) which creates spaces 
for an array called A. To hold four elements, you enter DIM B(3). On 
the BBC Microcomputer, there is always one more element of an array 
than the number in brackets which follows the DiMensioning of the 
array. 


Enter and run the following program which should make it a little easier 
to understand. 


10 REM XX ARRAYS DEMO x*x 
20 DIM EC3) 

30 FOR A=0 TO 3 

40 BCA=RNDC1O0) 

20 NEXT A 

60 FOR A=0 TO 3 
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70 PRINT "BC" SAS") TS "SECA)D 
S80 NEXT A 


BCQ) IS 4 
BCL) XS 2 
B(2) IS 4 
EC3) IS 10 


ECO) IS 
BCL) IS 
BC2) IS 
EC3) TS 


OW MN 


As | pointed out, an array contains one more element than the number 
which is used to dimension it, so the array B in the sample program 
contains four elements. You may well find it easier to ‘forget’ that the 
subscripts start at zero, and dimension an array with the number of 
elements you need, ignoring array element subscripted zero. Note that 
elements of an array are called subscripted variables. 


As you can see from line 20 of the program you've just run, the 
computer needs you to DIMension an array before you can use it, with 
a DIM statement. The DIM statement is made up of a line number 
followed by the word DIM, and the name of the array, with the size of 
the array enclosed in brackets. 


You can dimension more than one array at a time by using a line as 
follows: 100 DIM A(4),B(2),S(6@). Just separate each of the array 
names with a comma. 


The arrays we've been talking about so far are one-dimensional arrays, 
suitable for such things as holding a list of numbers. However, you can 
have arrays of more than one dimension. These arrays are called, 
reasonably enough, multidimensional arrays, and are set up with a 
DIM command having more than one subscript. Enter and run the 
following program: 


10 REM xx MULTI-DIMENSIONAL 
20 REM ARRAY SX 

30 DIM A(3,3) 

40 FOR B=0 TO 3 

50 FOR C=0 TO 3 

60 ACB,C)=RND(9) 

70 PRINT "ACSES","303") IS "SACB,C) 
80 NEXT C 
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90 NEXT & 

100 PRINT ‘" 0 41 2 3" 

110 FOR B=0 TO 3 

120 PRINTSB$" "SACB,003" "3 
ACE+1)3" “SACE,Z)3" "SACE,3) 

130 NEXT & 


When you run it you'll see something like this: 


ACO,0) IS 
ACQ,1) IS 
ACO,Z) IS 
AC0,3) IS 
AC1,0) IS 
AC1,1) IS 
AC1,2) IS 
AC1,3) IS 
ACZ,0) IS 
ACZ,1) IS 
AC2Z,2) IS 
ACZ,3) IS 
AC3,0) IS 
AC3,1) IS 
AC3,2) IS 
AC3,3) IS 


Ne OO BOO OWWON LEON bw 


one 
fut 
at 


GI Ne © 
Oo 6 CA O8 
tO Oo “Ni pb 
m= 00 O BY 
“I 4 63 03 3 


Firstly the elements of the array will be filled with numbers between 
one and nine, and these are printed out by line 7@ so you can see what 
is held by each element of the array. The little table printed below them 
shows how the elements of the array are organised. Any element can 
be accessed by giving its co-ordinates within the array. If this is so, 
element 3, 3 should lie where the two threes intersect, i.e. on the 
number 7. You'll see from looking above in our sample run that, in 
fact, A(3,3) does equal 7. 


DiMensioning an array consumes memory, so do not set up an array 
larger than you need. The number of elements in an array is the first 
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number within the brackets plus one, multiplied by the second number 
plus one. Therefore, the array A(3,3) has 16 (3 plus 1 times 3 plus 1) 
elements. You can see from our sample run that this is so. 


There is no reason why you should not have arrays with more than two 
dimensions, except for the fact that they can quickly become quite 
difficult to handle, and the number of elements rockets quite 
alarmingly. Here is a program to DIMension and fill a 
three-dimensional array. Although the array is only A(2,2,2), you can 
see the number of elements is quite large(3*3*3) 


10 REM *x MUL TI-DIMENSTONAL. 
20 KEM ARRAY Sx x 
30 DIM AC2Z,2;2) 
4) FOR be=0 TO 
20 FOR C=0Q TO 
60 FOR D=0 TO 
/Q ACE,C,DI=RNDC) 
GOO PRINT "AC’SBS", "303", "5 D3 
PO FRINT ") TS "SACE,C,D) 
100 NEXT D 
Li0Q0 NEXT C 
120 NEXT E 
oRUN 
AC0,;0,0) IS 
ACQ,0,1) IS 
ACQ,0,2) TS 
ACQO,1,0) IS 
ACQs,1,1) 5 
ACQO,1,2) IS 
AC0;2,;0) IS 
ACO,2,1)9 1S 
ACO pcg n) LS 
ACL,0,0) U5 
ACL,Q;1) IS 
ACL,0,2) IS 
ACL>.»1,0>9 IS 
ACL,1,1)9 TS 
ACLs,1,229 05 
ACl,2,0) IS 
ACLs»2Z,1) IS 
ACL,2,2) IS 
AC2Z,0,0) IS 


PP tS 


SPOON OWN PN & 2 CEN ON ob G3 OA 
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ACZ,;0,1) IS 
AC2Z,0,2) IS 
ACZ,1,0)> IS 
ACZ,;1,1)> IS 
ACZ,1,2) IS 
AC2Z,2,0) IS 
ACZsZs1) LS 
AC2s252) LS 


bore CT bh 


Increase the number of dimensions to five, as in our next example, and 
although it is only A(1,1,1,1,1), there are now 32 (2*2*2*2*2) 
elements. 


10 REM *x MULTI-DIMENSTIONAL 


20 REM ARRAY SX 
30 DIM ACLislslsi,1) 

40 FOR B=0 TO 1 

YO FOR C=0 TO l 

60 FOR D=0 TO il 

/0 FOR E=0 TO il 

30 FOR F=0 TO 1 


90 ACEB,C,D,E,FO=RNDCD) 

100 FRINT PACH SBS SUECE SUEDE USER EFS 

110 FRINT _ IS ";ACE,;C,D,E,F) 

120 NEXT 

130 NEXT 

140 NEXT 

130 NEAT 

160 NEXT 
“RUN 
AC0,0,0,0,0) IS 
ACO,;0.0,0,1)9 I5 
ACQ0;,;0;,;0,1,0) I$ 
ACO,;0,0,1,1) I5 
ACQ,;0,1,0,0) IS 
AC0O,0,1,0,1) IS 
ACO,0;,;1,1,0) I$ 
ACO0,0,i,1,1)9 IS 
AC0,1,0,0,0) I$ 
ACQ0,1,0,0,1) I5 
ACO,1,0,1,0) IS 
ACQO,1;0,1,1) IS 


TO OM TT 


Oe CACAO Oe BNE OO 
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ACO,1,1,0,0) IS 
ACO,1,1,0,1) IS 
ACO,1,1,1,0) IS 
ACOsleils441) IS 
AC1,0,0,0,0) IS 
ACL,;0,0,0,1)9 TS 
ACL,0,0,1,0) IS 
AC1,0;0,1,1)9 1S 
ACL,0;,;1,0,0>9 I$ 
ACL,;0,1,0,1) IS 
AC1L,0,1,1,0)9 05 
ACL,O;1,1,2)9 5 
ACL.,1,0,0,0) TS 
ACT.+,1,0;,;0.1)9 IS 
ACL.,1;,;0,1,039 TS 
ACL,1,0,1,1)9 I$ 
ACL,1s1,0,;0) I8 
ACLl,1,1,0,1) IS 
ACLs,1s1,1;,0) IS 
ACLs1ls,1,1,19 5 


OM ORO Oh RP ON SE NOR 


Here is a version of the game MASTERMIND (the name is copyright 
Invicta Plastics) to show single-dimensional arrays in use. The game is 
simple to play. The computer ‘thinks of’ a four-digit number, and you 
have ten guesses to work it out. A correct digit in the wrong position 
within the code gives you a ‘white’, while a correct digit in the correct 
position gives you a ‘black’. 


LO REM XxXMASTERMIND 
20 MOQODE7 
30 DIMC(4),6¢04) 
40 CLS 
SO FRINT’ ? “CHRO 133) 
"T am thinking of 8 four-digit mumber," 
60 FPRINTCHRé (1339) e"whieh you 
neve 10 goes to discover!’ 
70 FRINT’ “CHR ¢CL2Z9 FALL four 
Gigits sre differemt.<("/ 7? 
80 FRINTCHREC 129) 3 "Press amy key to begin" 
90 A#=GCETS 
100 CLSSPRINT? ’ “ 
L10 CCL =RNDC9) 
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12d 
130 
140 
150 


140 


170 
180 
190 
200 
210 
Paral! 
230 
240 
ed 
260 
27 Q 
230 


320 
330 


FOR 22270430 (Ze RAND C9) 
PORE LTO’ LTR UC JO 2) THEND LO 
NEXT S NEXT 
FORG#1LTOLOFPRINTCHRE C133) | 
TEnter guess mumber ‘5G 
TNFUTATALSATPRINT 
CHEBOCLIPSCHRE CL LIF CHRE CLL) 
FORZ#=1 T0436 ¢0Z)=6-LOeXTINT CASIO} 
AS INTCA/T OO TNEXT 
Res 3 bes: (j 
FORZ# 1 TO4S TRC CZ 2neG 02) THENS2 
Boke Lt G ZG 
NEXT 
FORZ#1TO43 0F602) 0 THENZ7 0 
FOR 17043 TRC CZ 256 CJ) THENZSO 
WS x: Ld 4 of 
NEXT J 
NEXTZ 
PRINTALJ CHRE (13293 "scored" 5 


CHR CL29) 563" black"}3IFB<s1 PRINT’ S"4 


FPRINTCHRS (132) $"and"3 CHR (129) 3H 
" white" }?IFWe>l PRINT" Ss" 

TFW=L PRINT 

TFR&4 PRINTCHRS(133)3;"You quessed it.. 


eim just "$63" quess"33IFG>S1 PRINT "es" 


LFESS4NEXTG 
PRINT CHRS(134)¢"The code wWas''§ 
CHRECL29) 3004) 5003) SOC 205001) 


The next program, to keep your personal finances in order, uses the 
array A to hold the relevant amounts of money. 


It is a fairly simple, but very useful, personal accounts program. When 
you first RUN it, you’ll see that the balance — naturally enough — is 
zero. You can work out a series of accounts by using GOTO 79, 
instead of RUN, to keep the ‘previous balance’ (variable B) intact. 
Note that the Centronics printer has turned all the pound signs into a 
single apostrophe (’). Enter these as pound signs. 


The program is set up to deal with six categories — cheques, credit 
cards, rates, mortgage, standing orders, and monies in — as well as a 
seventh, salary earned, but can easily be modified to handle as many 
categories as you like. Simple change the six in line 40 (M=6) to the 
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number of categories you need. As well as this, you'll have to add 
additional data on the ON F GOSUB line, line 180, so the computer will 
have extra destinations for additional categories. Simply add the 
categories before the start of the initialisation procedure (line 400). 
Note that ‘monies in’ are recorded as negative numbers, and will be 
shown as such in the display, which is updated after each entry is 
made. 


It would be very easy to modify this program to give you an option to 
dump the accounts onto a printer. The modification should be entered 
between lines 210 and 229. 


Note the use of the GET function in line 549, to stop the program until 
any key is pressed. 


10 REM XFersonal accounts™ 

20 REM (CC) Hartnell/Ron Jones 

30 MODE 7 

40) M=4 

20 DIM ACM) 

60 FROCinitislise 

70 GOSUEZ3O 

SO INFUT’ ‘Any changes CY or N)"'Z4 
°0 TF Z$="N" THEN 200 

100 SOUND 1,-7,RND(S034+75,3 


110 TNPUT? "Number "KTP KeM OR Kel THEN 110 


120 SOUND 1,-7,;RND(°509+4+75, 1 

130 TNFUT’ "New smount'e 

140 IF Ke4 E=-E 

L130 ACKISE 

160 GOTO 70 

L70 FRINT F3 

180 ON F GOSUB 330,340,330,3460,370,380 

190 PRINTTAB(4)3"°"$ACED 

£00 INFUT'Salary"S{CGOSUEZ30th=S-T+e 

210 FRINT Balance ‘"SRi bor 

220 END 

230 TeQiClStRPrRInT’ “TABCL2) SCHRS CLIZS+RND CS 
“RPearsoanagl sccounts" 

£240 PRINT’ TAB C4) 3"FPrevious balance “"fh?’ 

250 FOR F=1 TO M 

260 SOUND INTCF/2),-RNDCLS) ,FxZ0,RNDCP) 

2/70 PRINT “’F3 
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230 ON F GOSUB 330, 
270 PRINT" 


300 T=T+A¢F) 
310 NEXT F 
320 RETURN 
330 FRINT CHRéE (13393 "Cheques out 


340 FRINT CHR#(129) $ 
300 FRINT CHR (13023 "Rates" } 3RETURN 


“NS ACK) 


360 PRINT CHR$(131)3"Morteage"s 


370 FRINT CHRE(132)3 "Standing orders} 
S80 FRINT CHR ¢(1L33)3 "Monies 


390 FEM KKK OR KX 
400 DEF FROCinitislise 
410 E=0 


Y00 PRINT "Note 
JL0 FRINT 


wo Z2=GET 


SOUND i,.- 
430 PRINT’ ’/’othis is a personal accounts program" 
440 PRINT’ '1ta 
450 FRINT 
460 PRINT? 
$70 FRINT 
480 FRINT 


save the 


we LOO? 


hbalsnice 


"Lredit card(s 


340,350,360,370, 3980 


DS SRETURN 
"Ss RETURN 


o KE TURN 


after 


“rum, use GOTO 70 rather 


"The program 15 


"Lo cater for 
"Lo Neve more, 
470 PRINT TARC6)¢"in line rumber 


CHSsMmge 


g@atoup at 
Six LLeEmMse 
tie 


ins SRETURN 


Velie 


4." 


"is shown 3&5 & megative mumber" 
S20 FRINT’ "Press 


“40 ENDFROC 


any key to start tne programe «+ 


+ RE TURN 


that" $CHR$(129);"mMonies in 


So far we’ve been looking at numeric arrays. Note that the name of the 
array does not have to be a simple variable like A, B or C. Here are 
some sample valid array names: 


10 
20 
30 
40 
JO 
60 
70 


REM 
REM 
DIM 
DIM 
DIM 
DIM 
DIM 


VALID ARRAY NAMES 
OOK OOK OK KOK OK K 


ARRAY (9) 
array (9) 


end of the_world(32,5) 
My dog is black (30,44,2) 


AZ34 076) 
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ar earlier" 
than RUN," 
praesent! 
TP you meecd" 


of M" 


Notice that the array called ‘ARRAY’ is quite different from the one 
called ‘array’. The arrays ‘end__of__the__world’ and 
‘My__dog__is__black’ contain the underline character (shift on the £ 
key), not the hyphen or minus sign. Line 70 shows another valid array 
name. So long as it starts with a letter, and does not contain symbols 
or punctuation (apart from the pound sign and the underline) it will be 
accepted as a valid array name. 


String arrays 


You can also have string arrays, which are very similar to numeric 
arrays. Enter and run the following program to see the string array in 
practice, entering five words (each followed by RETURN), when 
prompted. 


10 REM STRING ARRAYS 
20 DIM ASA) 

30 FOR B=0 TO 4 

40 INFUT AS$¢CE) 

JO NEXT & 

60 FOR B=0 TO 4 

70 FRINT ASCE) 

SOQ NEXT E 


TREASON 
PWASTE 

P TERROR 
PANGLOPHILE 
WATER 
REASON 
WASTE 
TERROR 
ANGLOPHILE 


The BBC version of BASIC is far more tolerant of array names than 
most other BASICs. Here, for example, are some of the valid string 
array names: 


10 REM VALID ARRAY NAMES 
20 REM XK KKK KKK KKK KKK 
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30 DIM ARRAY$(¢77) 
40 DIM TESTING$S (87,23) 
30 DIM tbetter man than, yout¢1?,2,2) 


Note that the main difference between a string array and a numeric 
array is the dollar sign immediately following the name. This tells the 
computer the name refers to a string. 


Here’s a string sort program to show string arrays in use. As set up, 
and as demonstrated in the sample run, the program caters for five 
words. To adapt it for more, change the 5 in lines 20, 30 and 4@ to the 
number of words you need to sort. This introduces a slight redundancy 
as a string array (like a numeric array) starts at zero, rather than one, 
but it is simpler to pretend to forget about the zero element when 
analysing how a program of this type works, than it is to try and keep 
the zero element in mind. 


10 
20 
30 
40 
30 
60 
ral 
80 
70 
100 
110 
120 
130 
140 
150 
140 
170 
180 


REM XXSTRING SORTXX 
DIM WC) 

B=03G=5 

FOR A=1 TO S 

INFUT WECA) 

NEXT A 

£71 

ne Zt 

IF BoG THEN 140 

IF WCB CWSCZ) THEN 120 
Z=£4+15GOTO80 

Qh=We CZ) 

WH CZ) =WHE CED 


W$ CE) =Q$ 

GOTOL10 = RUN 

FRINT W$¢G) ?LATCH 

G=6~1 PRREATH 

tr G20 THEN 70 PRREAD 
P DRAIN 
"DRAGON 
BREAD 
BREATH 
DRAGON 
DRATIN 
LATCH 
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There are, then, two primary uses of the DIM statement, to create 
arrays for (a) numeric arrays; and (b) string (alphanumeric) arrays. 
There is a third use of the DIM statement which is used to reserve bytes 
in memory. To reserve n bytes, you enter DIM A n-1. There must be a 
space between the A and n-1, and there are no brackets. Use of the 
DIM statement for this purpose is outside the scope of this book, but is 
mentioned for completeness. 


String Handling 


Our discussion of string arrays leads us neatly into strings, and string 
handling. As you've probably realised by now, a string is a collection of 
alphanumeric characters within quote marks (including symbols and 
spaces, if desired). It is assigned to a variable whose name ends with a 
dollar sign. The same names which were given as valid for string arrays 
are valid for string names. So AS, niggle$, WORDS and 
HiI__THERE__BOBS are all valid string names. Strings are assigned in 
much the same way as are numeric variables, by a statement of the 
form A$ = “HI’’. The LET (as in LET A$ = “HI’’) is optional, but 
makes for greater sense in the earlier stages of programming. 


There are a number of very useful string functions, which can be used 
for manipulation of strings, and for extracting parts of the strings. The 
functions are: 


ASC(X$) This gives the ASCII code of the first character in 
X$, so if X$ equalled BBCMICRO, ASC(X$) would 
give 66. 

CHRS$(66) We can check to see if, in fact, 66 is the code of the 
first letter of XS (i.e., if it is the code of B) by asking 
the computer to PRINT CHR$(66). This goes give a 
B. In effect, CHRS$ is the opposite of ASC, and 
turns a code back into a character. 

LEFTS(X$,n) This gives a string containing the n_ leftmost 
characters of X$, so LEFT$(X$,3) will give ““BBC”’. 


LEN(X$) This function gives the length of a string, so using 
our string, X$, of ““-BBCMICRO”’, we get LEN(X$) 
of 8. 


MIDS(X$,n,m) This string function produces a string from X$ 
which is m characters long, starting from character 
number n. MIDS(X$,3,4) gives ““CMIC”’. 

RIGHTS$(X$,n) This function is the opposite, as may be expected, 
of LEFTS$, and gives the n rightmost characters in 
the string. RIGHTS(X$,5) gives ““MICRO” 
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STRS(A) 


VAL(X$) 


Here is a printout from the BBC Microcomputer showing the string 


This turns a variable (A) into a string, so if the 
variable was 234, the string version would be 
"234". This may not seem to be much use, but 
allows certain manipulation of numbers when they 
are strings which would be extremely difficult in 
their numeric form. 

This is the ‘opposite’ of STRS$(A) and takes the first 
numeric value found in the string and turns it into a 
number. Thus VAL(X$), where X$ equals “22 + 
34” would return 22. In some BASICs, the VAL 
function evaluates the whole of the string, so VAL 
(22 + 33’) would give 55. On the BBC Micro 
however, it gives 22. 


functions in operation. 


oA$S= UV BECMICKO"” 


-FRINT ASC CXS) 
64 


“PRINT CHRS C66) 
E: 


“FRINT LEFTSCX$, 3) 
BEC 


“PRINT LENCX$)> 
3 


SFRINT MID$&¢(X$,3,4) 
CMIC 


-FRINT RIGHTS (X$,3) 
MICKO 


“eX Bae | ease 

“PRINT X$ 

12+43 

“PRINT VAL (X$) 
12 


PRE LEt43 
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“FRINT X 


55 
*XS=STRSCX) 
“FPRINT X$% 
55 
“PRINT LEN(X$) 
z 

>X$="224+544+43" 
oF XS 
L2tSG4t+4s 
~X=VAL CXS > 
oP AX 

22 


eX$e" 27/22" 
HX=VAL CXS) 
oP eX 


Le 


Now we have a version of the program ALPHA, which shows ASC 
and CHRS$ in use. The computer ‘thinks of’ a letter of the alphabet, and 
you have to try and guess it. This program runs in Mode 7, and has a 
‘highest score’ feature. In this case, it is a lowest score feature, as you 
are trying to guess the computer’s letter in the shortest number of 
goes. 


Run the program, then return to the book for a discussion on it. 


150 


180 


REM XXxXA1LPHSaxkxx 
REM Showing the use of ASC amd CHRS 
CLS 
D=0 
C=12A=64+RND(26) 
SOUND 1,-15,120,20 
PRINT’ “CHRS(C128+RND(6))3"I am thinking of a letter.ee” 
FRINT’ “CHR$(128+RND(46))93"Try to quess iteecs" 
PRINT ’CHRS(128+RND(6))3 "Enter your quess mumber "C 
INFUT A 
IF ASC(A$)=A THEN 180 
PRINT “CHR$(128+RND(6))3"No, it is not "AS 
PRINT “CHR$(1284+RND(6))03"Try closer to the " 
TIF ASCCAS) <A PRINT CHR$(6128+RND(46)) 3 "end"; 
ELSE PRINT CHR$(128+RND(46)) 3 "start"3 
FPRINTCHR$(128+RND(6))3"0f the alphabet" 
C=Ct+i 
GOTO 90 
FRINT’CHRS$(128+RND(46))3"Yes, I was thinking of "A$ 
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190 FPRINT’CHR$(CIZ8+RND(6))3"That took "C" quesses" 
200 IF C<D OR D=0 THEN D=C 
210 PRINT ’CHR$(128+RND(46))3"Your best 
score this game is "D’’"'7" 
220 TIME=0 
230 REPEAT UNTIL TIME>300 
240 GOTOS0 


The variable for the ‘highest score’ is D, and this is set to zero line 40. 
The number of guesses is controlled by the variable C, set in line 5@. 
The balance of line 5@ chooses a letter. What it is actually doing is 
choosing a number between 65 and 99, because 65 is the code of A 
(PRINT ASC “A” would give 65) and 9@ is the code of Z. Line 60 
produces a short burst of sound to indicate that the computer is ready, 
and lines 70 to 8@ announce that it is ‘thinking of a number’. Line 90 
requests the guess, giving the number of the guess (C) as it does so. 
Line 100 accepts the player’s guess as a string (A$). The code (ASC) of 
this guess is compared with the computer’s number (A), and if they 
are the same, action is sent to line 180 where the ‘congratulations’ 
message is printed out. 


Line 140 uses the IF/THEN....ELSE we learned about earlier to tell 
the player to try closer to the beginning or the end of the alphabet. 
Line 16@ adds one to the guess count, and line 17@ sends the computer 
back to line 9@ for the next guess. 


The next program — Music Maker — uses other string functions 
which allow you to enter your melody as a string, which is then 
interpreted, and the music played. 


The principle of the program is very simple. The BBC Micro’s sound 
command has four parameters, and is written in the form SOUND 1, 
—15, 128,4. The first number after the word sound chooses the 
channel (@ to 3), the second is the volume (—1 to — 15, with — 15 the 
loudest), the third number is the pitch (@ to 254) and the fourth is the 
duration (from one upwards). 


The channel (parameter one) is fixed in this program to be channel one 
(the first number after the word SOUND). The volume varies randomly 
from —11 to —15, the pitch and duration are set by the melody which 
you enter as a string. (The SOUND command will be looked at in more 
detail a little later). 


Lines 40 and 59@ set the initial display to tell you to ‘Enter your song’, 
and — once you have done this — to determine the speed, from one 
(very fast) to nine (slow). The speed is accepted in lines 8@ and 99. 


The main REPEAT/UNTIL loop, which actually turns the elements of 
the string into ‘music’, runs from line 11@ to 200. Line 120 calls up a 
procedure (PROCdisplay) to print the words ‘Music Maker’ in a 
random colour, on a randomly coloured background, on the screen. 
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How to enter a song: 


The program works by accepting the notes you need as letters, 
running as follows: CDEFGABcdefgabx, Note that the highest ‘c’ is 
accepted as an ‘x’. After each letter comes a number, which 
determines the duration on the note. A rest is shown by a P (for 
‘pause’), so a string which read ‘““A3B4c5P2c3” would play the note A 
for a count of three, followed by B for a count of four, c for five, a rest 
of two then c again for three. The program will play the music over and 
over again until you press BREAK. 


There are three sample songs, which you can enter by typing MODE 4, 
RETURN, then GOTO 270. The program will quickly stop with an error 
code. To play the first song, enter — as a direct command — A$ = ZS, 
then follow this by GOTO 8@, when you will be asked how fast you 
want ‘‘Cielito Lindo” to be played. To get song two, enter A$ = MS, 
followed by GOTO 89. To get your BBC Microcomputer to play scales, 
enter SCALES = AS, then GOTO 8@. You can easily store tunes 
you've worked out in strings in this way. 


10 REM XMusic makerx 

20 MODE 4 

30 REM (C) HARTNELL 1982 

40 VDU 19,3,3,0,0,0 

30 VDU 19,0,4,0,0,9 

60 FRINT’ ’’ 

70 INFUT"Enmter your sore "AS 

80 FRINT"How fast? 1 (very fast) to Y (slow) " 
90 SFEED$=GET#$ TEMFO=ASC (SFEED$)-48 

100 REMKKKKXKKKKKKX 

110 REPEAT 

120 FROCdisplay 

130 FOR J=1 TO LEN(A$)--1 

140 BS=MIDS(AS,J5,1) 

150 N=-S3KCRS$="C")>-61KCB$="D")-469KCE$="E") 
—-7 3K CE$="F")-81KCBS$="6")-B9KCRGE"A'") 
-O7KX(ES="B"O-1LOLKCBS$="C")-1LO9KCB$="d") 
~“LI7KCES="eE")-1L21KCRS=" fF") -1LZ9KCES$="Q") 
“13 7*K(CRS$="a")-L45*e CB$="b")-149KCBS$="R" 

160 D=VAL(CMID$(A$,J5+1,1)) 


170 IF B¢="F" THEN GOTO 220 
180 SOUND 1,-CRND(S))-10,N,DxXTEMFO 
190 NEXT J 


200 UNTIL FALSE 

210 REMKXXMKKKKKKKKKK 
220 FOR Z=0 TO DXTEMFO 
230 SOUND 1,0,0,0 

240 NEXT 
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z00 GOTO 190 
260 REM XXxXxKSample sonas followxxxx 
270 ZH="C1IclAZBIGIciICIAZB1IGicilc1AZB1G1IF1D5 


280 
270 


BIBIBZAIGIFIFIDZELFIGLCGIGZFIEIDICSesd27c1Adéd3 
d2cie1lc4GiAZ2GiA1lAIGififidZB1GiALIAIGZFiGiE1D1iC8": 
REM Cielito Lindo 

FOE MOK OK OK KOK KOK KOK XK 
M$="G3E1IGBE1GIAIGIFLIE1IGZGiIC1ICICIDIELEIEIEI 
DIDIDIEID3PIG3E1G3E1IGIAIGIFIEIGZGICICICIDIELEL 
E1CID2ZC1IBICIPIciBbIAS6cIAIGS6CIBICICICIDIEZEICID2ZCIEL 
CIF IciB1lA6c1AIGS E1DICICICIDIEZEICID2ZCIBIC4AFSA" 
REM SHE WORE A YELLOW RIBBON 

FE MoKKK KKK KOK KKK K 
SCALE$="CiDLIEIFICLIALBIcC4P4" 3 SCALE 

RE MKK KKK KKK KKK 

DEF PROCdispley 

CLS 

VDU 19,3,RND(°3),0,0,0 

VDU 19,0,RND(7),0,0,0 

PRINT TAECRND(Z0),RND(26))"#%# Music maker ##" 
ENDPROC 


GET, GETS, INKEY, 
INKEYS$ 


These four commands are related, but they behave in slightly different 
ways, and expect different input from the keyboard. They share the 


characteristic that you do not need to press RETURN after pressing a 
key. 


GET 


This waits for a numeric input before continuing. It will wait forever for 
your key press. Try the following, waiting a different time before each 
key press. The reason for the ‘different time’ will become clear in due 
course. Enter a number from one to nine, by pressing the key of that 
number, and you'll see it print out YOU PRESSED 6, YOU PRESSED 1 
and so on. Touch the zero key to end, when it will print out YOU 
PRESSED @ and on the next line END OF DEMO. 
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10 REM X*GET DEMOxx 

20 REPEAT 

30 A=GET 

40 PRINT "YOU FRESSED "34-48 
YQ UNTIL A=48 

60 FRINT “END OF DEMO" 


The code of the ‘’1”’ key is 49, so subtracting 48 from this code (which 
is what the keyboard reads), allows it to print out the number of the 
key you pressed. Try touching some of the alpha, or control keys. 
TAB, for example, will give —39 and RETURN will give —35. It is 
useful to build up a list of the code which each key returns for use in 
interactive games and other programs. 


The next program — Prediction — uses the GET function. In this 
game, you have to try and anticipate the number (from one to nine) 
the computer will think of next. The computer’s number is shown on 
the screen near the top, and the bottom number is the score. The 
lower the score at the end (when you manage to successfully predict 
the computer’s number), the better. This is a fairly trivial game, but 
shows GET in action, and may well give you ideas for better games 
you can write. The screen will stay blank until you press a key. 


10 REM XxPredictiornxx 

20 MODE7 

30 E=9 

40 W=RND(9) 

90 Q=0 

60 REPEAT 

70 Z=GET-48 

80 IF Z:0 AND Z<10 PRINTTAB(E,12) 3; CHRS 
(1Z28+RND(46))3"Your rmumber is "32Z 

90 Q=Q+1 

100 IF RND(3)21 THEN 120 

110 W=RND(9) 

120 FRINTTAE(S,8) ;CHRE (C1 2Z294+W/2)"My ritmber is "3W 

130 FRINTTAB(E,14) ;CHRS(128+RND(6))3"The score is "3Q 

140 IF W=Z THEN 130 

150 UNTIL FALSE 
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GETS 


GETS is similar to GET, except that it waits for a string input (one 
character long). Here’s a variation of our first program for GET, 
showing this. 


10 REM XXGET$ DEMOXx 

20 REFEAT 

30 AS$=CETS 

40 PRINT "YOU FRESSED “3A 

20 UNTIL AS="0" 

60 FRINT "END OF DEMO" 
~RUN 
YOU FRESSED 
YOU FPRESSED 
YOU PRESSED 
YOU FRESSED 
END OF DEMO 


oF Ot 


The ‘Prediction’ program can easily be modified to accept a GETS. 
Just change line 70. Notice how this uses one of the string functions 
mentioned a short time ago to convert the string into a number. 


10 REM XXPredictionxx 

20 MODE7 

30 E=9 

40 W=RND(9) 

30 Q=0 

60 REPEAT 

70 Z=ASC(GET$)--48 

80 IF Z>0 AND Z<10 FRINTTAB(E,12)3 
CHRSC1I2Z8+RND(6))3 "Your rumber is "3Z 

90 Q=Q+1i 

100 IF RND(3)>1 THEN 120 

110 W=RND(9) 

120 PRINTTAE(S,8) ;CHRSC1I294+W/2)"My rmumber is "3 

130 PRINTTAB(E,14) ;CHRS(128+RND(6))3"The score is "jQ 

140 IF W=Z THEN 130 

150 UNTIL FALSE 
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10 
20 
30 
40 
~Q 
&0 
70 
30 
FQ 
100 
110 
120 
130 
140 
150 
160 
170 
180 
19d 
200 
210 
220 


230 


INKEY, INKEY$ 


The difference between the GETs and the INKEYs is that while the 
GET will wait forever for a key entry, INKEY sets a time limit. The time 
limit follows the word INKEY, or INKEY$, as follows: INKEY(4@) or 
INKEY$(40). The number in brackets following the word is the time the 
program will wait, in hundredths of a second. The function will give a 
zero (INKEY) or a null string (INKEY$) if no key is pressed within the 
time limit. 


The next program — Maze Maker — shows INKEY$ in action. Using 
the “A”, “2, “,”” and “’."” keys, you have to move the $ sign from the 
bottom left hand corner to the top right-hand one, without crossing 
any of the little white squares. Note that no path through is 
guaranteed, and there is no mechanism for checking that you don’t 
cheat. At the end, the number of ‘moves’ it took you is printed on the 
board, using CHR$(128 + RND(5)) to make the colour change 
randomly. You may well wish to use this effect to end your own 
games. 


KEM Maze Maker 

REM Use the A ZZ, .« keys 

REM to move tine 6 sian 

REM from the bottom left-hand 
KEM cormer ta the top right-hand 


REM one. No path throuen is 
REM guaranteed ! 

MODE? 

Coa fj 

FOR item=1 TO 920 


IF RNDC3 =] FRINT CHR (25593 ELSE FRINT '" "4 
MEXT item 

FRINTTAB CO, 0935" " 
FRINTTAR CO, 195" " 
REIS EY 2] 

M=xXIN=¥7 
PRINTTAER CX, YO $i" 

Caz $+ |] 

AS=TNKEY#CO> 

LF Ate" THEN 190 

IF Ag= "A" AND YO YeYrd 
TF Ate="Z" anD Ye22 YeHYti 
TP Ake." AND XiB9 XexKel 
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240 IF Ag=",' AND X>0 X=X~d 

200 IF X=0 AND Y=0 THEN 280 

260 FRINTTAECM,N) 3" " 

2/0 GOTO 1640 

2830 REPEAT 

£70 FRINTTABC12,10) $CHR&C128+RND(S)3"You made it'i" 
300 PRINTTAB (10,12) $CHRS(128+RND CS) 3 


"Tt took |. 8 og 3 tt meg 
310 UNTIL FALSE SOM +9 % °° MOVE 


Note in line 19@ that the delay after INKEYS$ is set at zero. This ensures 
the program continues without a break, whether you are pressing a 
key or not. You'll find it easier to know which keys to press for right 
and left movement by noting that the ‘greater than’ and ‘less than’ 
symbols point in the respective directions. 


The next program — Road Runner — shows INKEYS in action again. 


In this program you are attempting to drive a long line of letter V’s 
down a twisting, turning track of red hash symbols (shown in this 
listing as £ signs). Your controls are “‘Z” and ‘‘M” which move you left 
and right respectively. 


Line 140 moves the track randomly, making sure that it does not stray 
off the edge of the screen. Line 15@ prints the V, which is scrolled up 
(as is the tract) by lines 220 and 249. The function readch(X, Y), which 
starts at line 290, checks the status of the position the V will next 
occupy, and if it finds anything other than a 32 there (32 is a space, see 
line 200) sends action to the procedure ‘‘end’’, which starts at line 3790. 


The one in brackets after INKEY$ in line 250 ensures that the computer 
waits one hundredth of a second before proceeding. Line 260 
interprets the INKEY$, and by using the logic within each pair of 
brackets, ensures that the V is not allowed to go off either side of the 
screen. This program uses a REPEAT/UNTIL loop (see lines 13@ and 
270) to keep it running until the loop is exited by line 200. Note in line 
270 it says UNTIL FALSE. This means that the loop will continue for 
ever, unless there is an exist condition within the loop which is 
satisfied, or the BREAK key is pressed. 


If you'd like to slow the program down, change the one at the end of 
the SOUND statement in line 230 into a two or a three, and/or change 
the one in brackets into two or three in line 25@. 


tem KRosecd Kurnmer 
tEM (C0) Hertmnell 1982 


* 


10 


a 


{- 
|: 
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20 MORE? 

&0 TM = 

70 A=10 

OQ ALS 

90 Yale 

LO0 FORJ=1 TO 22 

Li0 FRINT 

120 NEXT J 

130 REPEAT 

140 G=A+RND CS DK CASLI-RAND C2 KCAL ZZ 2 
120 FRONT TAB CX-1. 79 CHR C132 yeagi 
140 LXer OS 

170 Lee oS 

Leo 2 SENT eaden CA, 1 LD 
Led ' Mul ad $ Lak ; LY 
200 Tr 2eege FROCend 
210 PRINT TARGA, 22) SCHRECLES I FUE" SF TABLA? , 22) 5 

CHRBOCLES FUE" FCHRECLZSB+RND CSD > § ¢ 
TIME DOTY T0o/7 70g" miles" 

220 PROUNT 

220 SOUND O,-7—-CRNDCS)9,RND CS), dL 

240 FRINT 

e220 CbeTHMRE Yo co 


260 Kee Chet 2" AND XS 2) CCS NM" AND X238) 
2? UNTIL. FALSE 


ET) ROEM RC KKK MMMM 
270 DEF FNreadehntx,Y) 
S00 LOCAL A%,C 
S10 VU ae 


3 


~ 


320 AX#135 
Sa Chel lsS fe REE a 
Say Coseft AND Foam an an a 


S500 DIV £100 
3402C 
370 DEF FROCend 
O80 M=CTIME DIV 103/10 - O.? 
3°0 REPEAT 
400 FRINT TABCO,2329 -CHRECLZ8+RND CS) > § 
"End of races, you lested for "FMS" miles" 
410 SQUND 0,-15,RNDC12),RNDC5) 
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420 SOUND 1,-15,RNDC12),RNDCS) 
430 SOUND 3,-15,RND012),RNDCS) 
440 UNTIL FALSE 

400 ENDPROC 


SOUND 


The SOUND statement on your computer is very versatile. It is easy to 
use, and if you avoid the use of ENVELOPE the first few times you use 
the SOUND command, you should find it fairly easy to master. Even 
without ENVELOPE, you'll find there is a wide variety of sounds you 
can make to incorporate into your programs. 


As was pointed out a short time ago, the word SOUND is followed by 
four parameters. The first (9 to 3), chooses the sound channel, the 
second (@ to — 15) sets the volume, with — 15 being the loudest, the 
third chooses the pitch of the note (@ to 255) and the fourth controls its 
duration (1 to 254). A simple, two-line program which puts the sound 
output through its paces indefinitely, producing a sort of weird 
electronic music, is: 


10 SOUND RND(4)-1,.-RNDCIS) ,RND(254),RND(C20) 
20 GOTO 10 


We can demonstrate the statement in action more precisely with the 
following routine, which sets the volume at maximum (— 15) and the 
duration at one. Enter and run this program to hear it in action. You 
can read the channel (the left hand column) and the pitch (the right 
hand one) as the program runs. 


10 REM **SQUND DEMOXx 

20 VOLUMES 

30 DURATION= 1 

40 FOR CHANNEL=0 TO 3 

YO FOR FPITCH=1 TQ 255 STEF 3 

60 SOUND CHANNEL, VOLUME ,PITCH, DURATION 
7/0 PRINT CHANNEL ,PITCH 

SO NEXT PITCH 

90 NEXT CHANNEL 


You'll see that the first run, when CHANNEL is set to zero, produces a 
strange sound, quite unlike the music produced when the CHANNEL 


90 


is one, two or three. This is because channel zero is for noise, and the 
other three allegedly for music. The rising tone produced on channels 
one, two and three is, I'm sure you'll agree, quite effective. 


You can change this, by putting the volume in a loop, to produce a 
totally different sound. Try to predict what this routine will produce, 
before you run it. You’re almost certain to be wrong. Modify the above 
program, by adding lines 55 and 75 below, and changing lines 5@ and 
7@ as indicated. 


10 REM *XSOUND DEMOXxX 

30 DURATION=1 

40 FOR CHANNEL=0 TO 3 

~O FOR FITCH=1 TO 100 STEF 3 

wes FOR VOLUME=-15 TO -1 

60 SOUND CHANNEL ,VOLUME.PITCH, DURATION 
/0 FRINT CHANNEL, VOLUME ,F ITCH 

73 NEXT VOLUME 

80 NEXT FITCH 

90 NEXT CHANNEL 


If all went well, you should have heard a strange series of cymbal-like 
sounds, followed by notes played on a rather flat piano. 


There is, of course, no reason why even random noise should not be 
musical. The following routine, ‘‘Bamboo flute’’, produces music of a 
sort, which — although somewhat atonal — is certainly better than the 
mishmash of noise produced by the two-line routine at the beginning 
of this section. 


10 REM XXBamhoo flutes 

20 REPEAT 

30 VOLUME=-10 -RANDCS) 

40 CHANNEL SRD C3) 

SO PIUTCH=RND CS) *30 

60 DURATION=2XRND CLO) 

70 SOUND CHANNEL ,VOLUME,PITCH, DURATION 
Q0 FRINT CHANNEL ,PITCH 

90 UNTIL FALSE 

The SOUND statement can also produce quite creditable sound 


effects, such as the following. 


10 REM *XSteaem traimsk* 
20 Ke-1S 
30 REFREAT 
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40 SOUND 0,K,100,6 

20 SOUND 1,K,120,5 

60 SOUND 2,Kk,140,4 

70 SOUND 3,K,160,3 

80 T= TIME 

90 REFEAT UNTIL TIME-T230 
100 KeK+0.%8 

110 UNTIL K=0 


Experimentation is the only way to discover how wide the range of this 
command is. 


Let’s leave noise alone for a moment, and try to produce some ‘real 
music’ from the computer. 


The next routine turns the bottom row of keys (Z to the ‘less than’) into 
a one octave piano. It uses several things we’ve learned so far in the 
book. Enter and play a few melodies on it, then we'll have a closer look 
at the listing. 


10 REM XK FIANO xx 
20 REPEAT 
30 KFX 15,0 
30 A=GET 
60 M=-S3* (A=90)-61% CA=88)-69K CA=67 ) 
~/ 3% CA=96)-81% (4=466)-89% (A=78)-97KCAS77 )-1 
01x (A=44) 
70 IF M=0 THEN 30 
80 FOR J=-15 TO -%5 
°?0 SOUND 1,5,M,1 
100 SOUND 2,J.M,1 
110 WNEXT J 
120 UNTIL FALSE 
Lines 20 and 120, of course, set up a master REPEAT/UNTIL loop to 
keep your piano playing. Lines 3@ flushes the buffer so that if you 
linger on a key, it will not play endlessly. Once you've run the program 
a few times, delete line 30 and see what effect this has. *FX 15,0 is a 
useful command to use in any programs which read the keyboard 


through GET, GETS, INKEY or INKEYS. M is the variable to be 
assigned to the pitch value in the sound command. 


Line 5@ read the keyboard, and the long line 69 changes the value read 
by the GET function into a pitch value corresponding to the note 
required. 
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Line 60 uses the way the BBC Microcomputer evaluates true and false. 
If the condition within the brackets is true, the computer returns — 1. It 
returns zero if the condition within the brackets is false. The number in 
front of each bracket (like — 53) is the pitch value. If A equals 9@ (that 
is, the Z key is being pressed), the computer evaluates that as true, 
— 1, s0 M is set equal to 53 (that is, —53*—1). This is so for the rest 
of the line. If a key other than the eight on the bottom row has been 
pressed, all the conditions within brackets will be zero; so M will equal 
zero. In this case, the computer will go back to line 5@ to read the 
keyboard again. Lines 8@ to 11@ ‘play’ the note, using the volume loop 
(lines 80 and 110) to produce a sound somewhat like a piano. You can 
turn your computer into an ‘autopiano’ by making some changes and 
additions to the program. | have not renumbered it, so you can easily 
convert your ‘piano’ to play itself. 


10 REM XxX AUTO FIANO xx 

20 REPEAT 

30 FX 1S, 0 

50 ASRND(47)+43 

60 M=-SakCA=90)-61% CA=88 )-69K CA=67 ) 

~7 3% (A=B6)-B1% (A=66) -89X% (A=78 ) - 97K CAZR77 D1 

OLX CA=44) 

70 ITF M=0 THEN 30 

7G FRINT CHRE CL 28+RNDCS) dM 

80 FOR J=-15 TO -1 STEP RNDC3) 

90 SOUND 1,0,M,RNDC3) 

190 SOUND 2,JU,M,RNDCO) 

110 NEXT J 

120 UNTIL RNDCLO)=1 

122 FRINT ‘CHR€¢128+RND(6)), "PAUSE" / 

125 FOR J#-15 TO -1 

130 SOUND 1,5,53,5 

140 NEAT J 

150 RUN 


The possible permutations of this program are endless. Here is another 
version which produces a tone somewhat closer to an electronic organ 
trying to be a violin. Again, the program has not been renumbered, so 
you can easily modify your earlier program. 


10 KEM *x AUTO PIANO xXx 
15 REM **K WITH VIERATO *x 
20 REPEAT 

30 MFX 15, 0 
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30 
50 


Ma 53% CA=90)-61% (A=88 )~69K (A=67) 


~73KCA=86)-B1% CA=66) ~-89K CA=78 ) - 97 KCAZR77 D1 
OLKxCA=44) 


70 


120 
122 
125 
130 
135 
136 
140 
150 


TF M=0 THEN 30 

PRINT CHRE ¢1L2Z8+RNDC6)9.™M 
FOR J=1 TO RNDC1L1094+5 

SOUND 1,-10-RND(S),M%,RNDC3) 
SOUND 2,-10-RND(S).M,RNDCS) 
SOUND 3,-10-RND(S),M,RNDCS) 
NEXT a 

UNTIL RNDCL4)=%3 

PRINT ‘“CHRE#E (1 28+RNDC6)),"FAUSE"’ 
FOR J=1 TO RND(10)94+10 

SOUND 1,.°15,33,%5 

SOUND 2,-6-RND(S),69,3 
SQUND 3,°--6-RND(S),81,;5 

NEXT J 

RUN 


There is no reason why the ‘piano’ should be restricted to one note at a 
time. This final version play ‘chords’ (or, at least, two notes at once). 


10 
LS 
146 
17 
2.0 
4 () 
10 
60 


REM *X AUTO FIANO xx 

REM XK WITH VIERATO *x 

REM XXAND ‘CHORDS ‘xx 

DIM EC2) 

REPEAT 

FOR B=1 TO 2 

A=RND C47) +43 

ECE) =-S3% CA=90)-61% CA=B89 9-69 CA=67 ) 


~7 3% CA=B6)-81% CA=66) -B9K CAZ78) - 97K CAET7 
)-LOLKCA=44) 


&S 
70 
fu 
8 
90 
100 
105 
110 
120 


NEAT & 

IF EC1)=0 OR EC2)=0 THEN 40 
FRINT CHR# Cl 28+RNDC6)>,EC1),E 02) 
FOR J=1 TO RNDCLOO+S5 

SOUND 1,~-1L0-RNDCS),E C1) ,RNDC10) 
SOUND 2,-LO-RNDCS) ,E C2) ,.RNDCL0) 
SOUND 3,~-1LO-KRND(S),EC1>,RNDCS) 
NEXT JJ 

UNTIL RNDCL4)=5 
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l2e FRINT “CHR#CL28+RNDC6)),"PAUSE" / 
125 FOR Ji TO RNDC10>+10 

130 SOUND 1,-15,53,5 

135 SOUND 2,~-6-RND(S) 49,5 

134 SOUND 3,-6-RND(OS),81,5 

L40 NEXT J 

150 RUN 


You should now be in a better position to understand the ‘Music 
Maker’ program, introduced a short while ago in the string handling 
section of this book. 


The GET$ function is used in line 98 to get a number between one and 
nine to set the speed of the program. Line 15@ should now make 
sense. It uses some of the same numbers outside the brackets as does 
‘Auto-piano’, and — within the brackets — evaluates for portions of 
the string A$ which holds the melody. You can use the information 
within line 15@ for which number corresponds to which note to write a 
program for a two octave piano program. 


To recap our discussion to date on SOUND. The statement has four 
parameters, the first of which (voice, or channel number) can be from 
zero (noise) to three. The second parameter controls the volume, and 
can be set from @ to — 15, with — 15 the loudest. The third figure after 
the word SOUND is the pitch, and this can be any number from zero to 
255, while the fourth parameter — which controls the duration of the 
note — can have any value from one to 254. 


You will find, from time to time, that sounds tend to continue after the 
line which generated them as long been passed. The computer, when 
necessary, stacks up notes and waits for the sound channel to be clear 
so it can play them. If you want a note to be played immediately, in 
effect to dismiss the notes stacked up waiting for their turn, you can 
use a slightly more elaborate form of the SOUND statement. 


The computer can stack up to four notes at a time, and the full 
SOUND statement can tell it how many notes you wish to play. The 
statement, in its full version, is as follows: 


SOUND &HSFC, volume, pitch, duration 


The first parameter after the ampersand, H can have a value of @ or 1. 
In general use, it will be set to equal @. It has a specific task when used 
in conjunction with the ENVELOPE statement. For all intents and 
purposes, at this stage, we can assume H will always equal zero. 
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The second one, S, dictates the number of notes which are to be 
sounded at once. S can equal 9, 1, 2 or 3, and when set to zero, allows 
the notes to be played one at a time, in turn. This is the way the 
SOUND statement operates in its simpler form. 


The third parameter, F, can be set to equal 8, when the SOUND 
statement operates as normal, accepting the notes in the order in 
which they are ‘queued up’. If F is set to 1, all the waiting notes are 
suppressed, the note which is sounding is cut off, and the newest note 
is sounded. 


C stands for Channel, the voice which we have used in the past. It is 
set to 01, 2 or 3. 


ENVELOPE 


The SOUND statement is relatively simple, although it can — as you 
have seen — produce quite exotic effects. However, the computer’s 
noise-making abilities really come into play when the ENVELOPE 
statement is introduced. The ENVELOPE statement is, however, 
somewhat bewildering to use. It is followed by 14 parameters. A 
proper discussion of ENVELOPE is outside the scope of a book like 
this, but here is some material to start you thinking about, and using it. 
You can generally define up to four ENVELOPEs within a program. 
The next routine will define ENVELOPEs at random, and shows the 
range of each of the 14 parameters. 


10 REM *XENVELOPE DEFINERKX 
20 NUMBER=RND C4) 

30 Length=RNDC127)-120% CRNDCZ)=1) 
40 PITCHL=128-RND C256) 

20 PITCH2Z=128-RND (256) 

60 PITCH3=128-RND (256) 

70 STPLERNDC256)-1 

80 STP2Z=*RNDC2Z56)-1 

90 STPS=RNDC2Z256)-1 

100 AMFATT=127-RND C255) 

110 AMPDEC=127-RNDC2Z55) 

120 AMP SUS=-RNDCIZ8)+1 

130 AMPREL=-RNDCI12Z3)+1 

140 TARGATT=RNDC127 9-1 

130 TARGDEC=RND (C127 )-1 
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160 ENVELOPE NUMBER, lenathsPITCHI, 
PITCHZ ,FITCHS,STPI,STP2Z,STF3,AMFATT, AMPDEC,A 


MP SUS »AMPREL » TARGATT,» TARGDEC 


170 SOUND 17,2,100,255 


180 PRINT’ }NUMBERS" 


"Slangth3" "SPITCHL 


" "SPITCHZ3" "SPITCH3Z" "ESTPLZ" “3STP 
23" "ESTPOE" "FAMPATTS" “SAMPDECS" "FAMPSUS, 
“+ TARGATTS" "S TARGDEC 


AMPREL 3" 


135 FOR 
190 RUN 


J=1 TO 2ZO03NEXT J 


Variable Name 


Parameter 
Number 


length 
PITCH 1 


PITCH 2 
PITCH 3 
STP1 


STP2 
STP3 


AMPATT 
AMPDEC 
AMPSUS 
AMPREL 
TARGATT 


TARGDEC 


Range 

1-4 

1—127 plus 128 for 
dont’t repeat 

— 128 to 127 


—128 to 127 
— 128 to 127 
@ to 255 


@ to 255 
@ to 255 


—127 to 127 
—127 to 127 
—127 to 127 
—127 to 127 
@ to 126 


@ to 126 


Function 


This ts the identifying 
number 


Length of each step 


All three govern 
changes 


in pitch 

Number of steps in 
each 

section 


Change of amplitude 
per step in attack 
phase 

Change during decay 
phase 

Change during sustain 
phase 

Change during release 
phase 

Target level at end of 
attack phase 

Target level at end of 
decay phase 


Experiment with the ENVELOPE statement. You're sure to discover 
some very interesting sounds. 
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READ/DATA/RESTORE 


READ and DATA are very convenient ways of accessing information 
within a program. It is relatively simple to use. Enter and run the 
following program, which shows READ and DATA in action, and then 
return to the book for an explanation of how it works. 


10 REM READ/DATA 

20 REM KKKKKKKKKKKKKKKK 
30 REM XxXxXRead the DATA 
40 REM XKXKKKKKKKKKKKKK 
30 DIM BCS) 

60 FOR A=1 TO &S 

70 READ BCA) 

S80 NEXT A 

90 REM KKXXKKKKKKKKKKKKX 
100 REM Frint it back. 
110 REM X*KXKKKKKKKKKKKKXK 
120 FOR C=S TO 1 STEP -1 
130 FRINT BCC) 
140 NEXT C 

1350 DATA 13,335241,88,2,1999999 


“RUN 
L999999 
z 
88 
BUZ41 
13 


In line 70, the computer comes across the instruction READ.... 
Whenever it finds a READ instruction, it goes to the first item 
following the word DATA, and READs that, in this case, into an array. 
The DATA items can be anywhere in the program (although it is useful 
to keep them fairly close to the READ statement which refers to them). 


Return to the program TABULATOR ROCKET RANGE which we have 


used a few times before in this book. Here’s the listing again to refer 
to. 
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10 REM TABULATOR ROCKET RANGE 

20 MODE7 

30 FOR J=10 TO 1 STEP -1 

40 PRINT ‘77d 

90 T=TIME 

60 REFEAT UNTIL TIME-T>5S0 

70 NEXT J 

80 REPEAT 

90 Q=RND(29)+1 

100 U=128+RND(S) 

110 FOR rocket=1 TO 73READ ROCKETS 

120 POHRS CU) CROCHET eae tC ETAB (A) 5 

C ; OCKET$3TAE $ q > eetyes 

130 NEXT rocket + TAB (346) $CHRS$ (129) 3") 
140 T=TIME 

150 REFEAT UNTIL TIME-T=2 

160 SFACE =RND(1i0) 

170 SOUND 16,-RND(5)-10,RND(3)-1,RND(20) 
180 FOR print=1 TO SPACE 

190 PRINT TABCO) $CHRS(129)3"C" 3 TABR(CB7) ">" 
200 NEXT print 
210 RESTORE 
220 T=TIME 
230 REPEAT UNTIL TIME-T=2 
240 UNTIL FALSE 
250 DATA " + ",% 444 H 
260 DATA " +44 "4" +44 
270 DATA " +++ ra ++4 
280 DATA " <x» " 


In the first program in this section, the DATA is numbers, and these 
are assigned to numerical variables (the elements of the array). In 
TABULATOR ROCKET RANGE, the DATA is strings (lines 250 to 280) 
and these are assigned in turn to the string variable ROCKET$, and 
then printed out in line 120. The next item of DATA is then assigned to 
ROCKETS, as the program continues through the loop labelled 
‘rocket’. As you know, this program runs over and over again, but 
there are only seven items of DATA, only enough to go through the 
‘rocket’ loop once. The program needs the third word which goes with 
READ and DATA. This third word is RESTORE, which you'll see as 
line 210. This tells the computer to go back to the start of the list of 
DATA and start READing from the first item again. Here is another 
sample program, showing DATA in the form of strings, and illustrating 
RESTORE in action. 


10 REM READ/DATA/STRINGS 

20 REM KKXXKXKRXKKKKKKKKKK 

30 REM **xResd the DATA 

40 REM KKKXKKKKKKKKRKKKK 

30 DIM BS¢(21) 

60 FOR A=1 TO 21 

70 READ BSCA) 

80 IF 3*INTCA/3>=A THEN RESTORE 
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°Q NEAT A 

100 REM R300 ROK OOOKOK KK IOK 
LL0 REM Print it back 
120 REM KOK OK 20K OOK KOK KOK 
130 FOR Cel TO 21 

140 PRIAT BE¢C) 

ISO NEXT C 

140 DATA WET, KILL ,DTE 


In this program, there are only three items of DATA, so RESTORE 
must operate once the three have been read. Line 8@ ensures that this 
occurs every time the three are read while running through the A loop 
from 1 to 21. Notice that the string DATA do not have to be enclosed 
within quote marks. Despite this, it is a good idea to always include 
items of string DATA within quotes, to separate them clearly from 
numeric DATA. 


10 REM FREAD/DATA/STRINGS 

20 PEM 2K MRK KOK XO K 

30 REM *k¥Resd the DATA 

AQ REM RK RMA KKM K KEK 

4S WETH=S9 RTL Le LZ pre=80/7 

30 DIM Bé0213,2¢0212 

60 FOR A=1 TO 21 

70 READ Bt¢A,Z CA) 

O0 Tr Bk INTCA/39=A THEN RESTORE 

90 NEXT &#A 

100 REM KK KKKKKKKKKKKEK 

110 REM Frint it back 

120 REM 4R®RKRKKKRKKM KKK 

130 FOR C=1 TO 21 

L40 FRINT 6&4¢0)9,2Z2¢0) 

120 NEXT C 

160 DATA "WET" WET, "KILL", KILL, "DIE", DTE 
The value of separating string from numeric DATA is shown clearly in 
the preceding program where the numeric variables are made up from 
the same letters which form the strings. Even in this case, the 
computer sorts it all out. You can adapt the string READ/DATA 


program to read both string and numeric items by adding line 45, and 
by modifying lines 50, 70, 140 and 160. 


As you have seen, a READ command is used within a line to assign 
values to variables from a sequence of items contained within a DATA 
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statement. Each item of DATA is separated from others by a comma.A 
READ statement is made up of a line number, followed by the word 
READ, and the variable names which are to be assigned to the 
variables taken from the DATA line. 


When a program comes to a READ statement, it will — as | pointed 
out — move to the first DATA statement, no matter where it is in the 
program. The first value of the DATA statement will be assigned to the 
first variable in the READ statement. Apart from reading a DATA 
statement, the computer takes no notice of it, and will treat it as a 
REM statement. Move line 16@ up to line 25, and run the preceding 
program again. You'll see that (a) the computer ignores line 25, and (b) 
still READs it successfully. 


Even tf the DATA is scattered all over the program, the computer will 
seek it out, as the following program shows. This one is, of course, 
based on the preceding ones. 


10 REM READ/BATA/STRINGS 
20 REM KRKRKKRKKKKKKK KEM 
£20 DATA “HI ,7 

30 REM ***Read the DATA 
40 REM KAKRKKK EK KK KEKE 
30 DIM Bé(21),2¢0¢21) 

60 FOR A=1 TO Zi 

70 READ B#$¢A)d,Z¢CA) 

G0 TF SGRINTCA/3)24 THEN RESTORE 
34 DATA "GOSH" 

90 NEXT A 

92 DATA 56, "RB0ER" 

100 REM XXX RXMRKKRKKKKK 
110 REM FPrint it back 

L220 REM 2K ROK KOKO OK KKK 
130 FOR Cel TO 21 

140 FRINT &4¢C0),2¢C) 

145 DATA 22 

150 NEXT C 


It is important to ensure that you have enough DATA items for the 
number of times you tell the computer to READ. Delete line 145 in the 
above program, and run it again. You will get the error message ‘Out 
of DATA at line 70’ where the computer had read two items of numeric 
DATA, then was unable to find a third because RESTORE had not yet 
been evoked. 
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Remember that although it is not essential to have the DATA items 
near the READ lines which are looking for them, it will probably make 
your programs easier to understand if they are held in this manner. It 
also makes it easier to know which lines to alter if you are working ona 
program. 


Mastering the Graphics 


There are eight graphic modes on the BBC Microcomputer, and it can 
be quite bewildering — when you first get your machine — to try and 
work out how to use them. 


We'll start our discussion with Mode 7, the teletext display mode, as 
this is the easiest to understand. As well as this, it can be used to 
produce splendid displays, despite some limitations. Your computer is 
automatically in Mode 7 when you turn it on, and it is the mode which 
uses the smallest amount of memory. In mode 7, the screen is 40 
characters across, and 25 down. There are six basic colours (plus black 
and white) available in this mode, and they are selected by preceding 
the text you want printed — after the word PRINT — with a character 
control. Type in ‘program one’, and you'll see what | mean. 


10 REM MODE 7 GRAPHICS FROGRAM ONE 
20 PRINT CHR$(C129)03"This will print in red" 


Program one shows that character 129 turns the text on that line (but 
not on the following lines, even if the PRINT statement ‘wraps around’ 
to the next line) red. Try program two, which indicates that CHR$ 
(130) turns text which follows it green. 


10 REM MODE 7 GRAFHICS PROGRAM THO 
Z0 FRINT CHRSC13003"This will print im green" 


As | said, there are six colours you can select in this way. The six are 
shown by program three. 


10 REM MODE 7 GRAPHICS PROGRAM THREE 

20 FOR colour= 1 TO 6 

30 FRINT CHRS¢128tcolourd$"TESTING "colour ’ 
40 NEXT colour 
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The codes, and their colours, are: 


129 — red 
13@ — green 
131 — yellow 
132 — blue 


133 — magenta (purple) 
134 — cyan (light blue) 


This list suggests that there is a very simple way of generating 
randomly coloured PRINT statements which can be very useful for 
increasing the effectiveness of a program. Try program four to see this 
random colour change in action. 


10 REM MODE 7 GRAFHICS PROGRAM FOUR 

20 REPEAT 

30 FRINT “CHR (C128+RND(6))3"Testinge.." 
40 TIME=0 

~0 REFEAT UNTIL TIME>60 

60 UNTIL FALSE 


The important line in this program is, of course, line 30, which 
generates a random number between one and six, and adds it to 128. 
Incidentally, this program also shows use of the REPEAT/UNTIL loop 
for two quite different purposes. The loop beginning at line 20 and 
ending at line 6@ is a ‘perpetual loop’, as you have seen in several other 
programs in this book. This sort of REPEAT/UNTIL continues until 
BREAK is pressed. The use of an ‘UNTIL FALSE’ terminator in this 
way is more elegant programming than use of GOTO 39 for line 60. 


The second REPEAT/UNTIL loop is in line 5@. Line 40 sets a ‘clock’, 
which is always running while the computer is turned on, to zero. Line 
50 holds the program in a REPEAT/UNTIL loop until the time had 
incremented to 61. Turn to your computer now, and type, in the direct 
mode, PRINT TIME. As you'll see, it has increased considerably from 
the 61 it read when you last ran program four. A REPEAT/UNTIL delay 
loop is a more flexible delay device than a ‘dummy’ FOR/NEXT loop 
such as was used in some early programs in this book. 


Now, let’s get back to the graphics. 
The numbers higher than 134 also have interesting and useful effects if 


PRINTed following CHR$. Enter and run program five to see what 
these are. 


10 REM MODE 7 GRAFHICS PROGRAM FIVE 
20 FOR colour=129 TO 151 
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30 PRINT jcolour ;CHR$(C colour) $" abcdefeah 
Ljklanoparstuvwxyz" 
40 NEXT 


The first thing you'll notice is that control character 135 turns the text 
back to white, and 136 makes the text, which is white, flash off and 
on. The line proceded by character 141 looks very odd. If you look at it 
closely, you'll see it is the top half of the relevant letters. This shows us 
the way to get double-height characters. Enter the following line, in 
the direct mode, to see character 141 do its work: 


SPRINT CHRS(141)$"TEST" SPRINT CHR#(141)$"TEST" 


As you can see, this writes the word TEST in double-height letters. 
You need to enter every line twice, following CHR$(141)’s, to get 
words to print in this manner. To prove this, change the T of the 
second word TEST to W and see what happens: 


*PRINT CHR$(141)3"TEST" SPRINT CHRS( 141) 3"THST" 


As you can see, it combines the top half of the first line with the 
bottom half of the second line. It is possible to combine colours, and 
double height characters, to produce large coloured PRINT output. So 
as not to disturb the program (program five) which you still have in 
your machine, enter the following program starting at line 190, and run 
it by entering GOTO 109. 


100 REM DEMO SIX DOUBLE HEIGHT, COLOURED 

110 REFEAT 

120 PRINT CHR$ (141) 3CHR$(128+RND(4))3"This is a test!" 
130 PRINT CHR$(141);CHRS(C128+RND(4))3"This is a test!" 
140 TIME=0 

150 REPEAT UNTIL TIME>60 

160 UNTIL FALSE 


You can see that mixed colours are allowed, and can be most 
effective. Add 50 END to the program (program five) which you still 
have in your computer, and RUN it again. You'll see that the output 
when the control characters lie between 145 and 151 are very 
interesting, producing a good selection of teletext ‘chunky graphics’. 
You've probably seen how effectively these can be combined to 
produce pictures on Ceefax, Oracle or Prestel. You may like to create 
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your own table of these characters, so you can use them at will to 
create pictures of your choice. Change line 3@ to the following to see 
more of the available graphics: 


30 PRINT fcolour ;CHR$(colour);"ahedefani jk 


Lmnoparstuvwxyz '$%8 (0) 0=4"FCHRS (col 
Our) SS LK+ ee PM 


(Note that although the printer prints out the character as It appears on 
the keyboard, the character on the screen in the teletext mode is 
sometimes different. For example, the curly bracket after the quote 
marks following the third appearance of the word colour in line 30 
appears on the screen as +.) 


To see the graphic shapes more clearly, enter and run demonstration 
program seven. 


10 REM DEMO SEVEN GRAPHIC CODES 
20 FOR A=33 TO 254 

30 PRINT 3;A,CHRS (150) 5 CHRS (CAD 
40 TIME=0 

~0 REPEAT UNTIL TIME>60 

60 NEXT 


Look at the program output closely, and see if you can determine 
whether or not the characters repeat, and — if they do — which 
pattern underlies the repetition. 


To get colours, as well as graphics, you precede the lower case letters 
in the PRINT statement with the following numbers: 145, red; 146, 
green; 147, yellow; 148, blue; 149, magenta; 150, cyan; or 151, white. 
The following program demonstrates this: 


10 REM DEMO EIGHT COLOURED GRAPHICS 

20 FOR code=145 TO 151 

30 PRINT ‘code CHR#(code);"a b ec de" 
40 NEXT code 


You can mix text with graphics in the same colour, from the same 
PRINT line, so long as you are happy with the text being in upper case 
letters. Program nine should make this clear: 


10 REM DEMO NINE GRAPHICS, LETTERS 

20 FOR code=145 TO i511 

30 FRINT ’code CHR$(code)3"a Ab BeC dO e E" 
40 NEXT code 
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If you wish to change the background colour, you need to select the 
colour you want (using the code you discovered from running program 
three), and follow this with CHR$(157), which tells the computer you 
want the colour which preceded it to apply to the background. You 
follow the CHR$(157) with another character (again chosen from those 
demonstrated in program three) to select the colour of the text. 


10 REM DEMO 10 COLOURED BACKGROUND 

20 FOR background = 129 TO 135 

30 FOR foreground = 129 TO 135 

$0 FRINT CHR$ Chackaground) ;CHRE C1937 > 5 
CHR (foreground) ;"AECDahcd" 

20 NEXT foreground 

60 TIME=0 

70 REPEAT UNTIL TIME?100 

80 NEXT background 


You can see what a splendid effect this has. The delay loop (line 79) is 
to give you a chance to admire one set of foregrounds on a 
background before the next set appears. The foreground and 
background colours can be changed at random for some quite 
spectacular effects. Try program eleven. You may well be able to use a 
routine like this in one of your own programs. 


10 REM DEMO 11 RANDOM COLOURED 

20 REM COLOURS ON COLOURS 

30 MODE7 

40 PRINT’’’’"What is your full mame"; 

30 INFUT A$ 

60 REPEAT 

70 FRINT CHR$(128+RND(7) ) 3 CHRS$(157) 3 CHR$(128+RND(7) > 3 AS 
80 TIME=0 

90 REPEAT UNTIL TIME>60 

100 UNTIL FALSE 


As you can see from running this (which includes white as one of the 
colours, to increase variety), from time to time the foreground and 
background colours will be identical, so that nothing can be seen. It is 
very easy to write a routine to overcome this, using a REPEAT/UNTIL 
loop. 


10 REM DEMO 12 RANDOM COLOURS 

20 REM ON COLOURS 

30 MODE7 

40 FPRINT’’’’"What is your full name"; 
30 INPUT A¢ 

60 REFEAT 
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70 REPEAT 

$0 A=1Z28+RND(7) 2B=128+RND (7 > 

70 UNTIL A<>E 

100 FRINT CHRS (A) 3 CHRS$(157> }CHRE(B) 3 AS 
110 TIME=0 

120 REPEAT UNTIL TIME>?60 

130 UNTIL FALSE 


You'll notice that parts of the program, like the PRINT line (100), are 
getting a little messy. Fortunately, because the BBC Micro allows 
concatenation (adding together) of strings, you can easily combine all 
the colour information, as well as the other required information, into a 
single string. 


10 REM DEMO 13 RANDOM COLOURS 

20 REM WITH CONCATENATION 

30 MODE7 

40 PRINT’’’’"What is your full name" } 
JO INPUT AS 

60 REPEAT 

70 REFEAT 

80 A=1Z28+RND(7)SB=128+RNDC7) 

90 UNTIL Ac<i>B 
100 B#=CHRS$ (A) +CHRS$(157)+CHRS (CE) +AS 
110 FRINT &¢ 

120 TIME=0 

130 REPEAT UNTIL TIME>60 

140 UNTIL FALSE 


If you want to print everything in one foreground/background 
combination, say yellow on red, you can combine all the required 
information into one string, and then precede each PRINT statement 
with this string. AS = CHR$(129) + CHR$(157) + CHR$(131) can be 
used before any string to print it in yellow letters on a red background, 
in the form PRINT As; “Hello Bob”. 


You're sure to find particular colour combinations, such as yellow (or 
white) on red, particularly effective. Whenever you discover one which 
looks good on your television set (and, unfortunately, colour 
televisions seem to vary widely in their response to BBC 
Microcomputer colours), make a note of it so you can use it in a 
program. 


If you want the letters to flash, precede the sequence with CHR$(136). 
The flash is turned off with CHR$(137). Change line 100 of program 13 
so it reads as follows: 
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100 BS=CHRS$(136)+CHRS(A)+CHRS$ (157) +CHRS(B) +A$ 
You'll see when you run this that your name will flash quite pleasantly. 


If you want doubleheight characters on a new background, you can 
combine all the information into a single string: 


10 REM DEMO 14 
20 REM MORE CONCATENATION 


30 A$S=CHR$ (141) +CHRS$ (129) +CHRS$ (157 )+CHR$(13Z2)+"HI THERE, BOB" 


40 FRINT A$ 
30 FRINT A$% 
60 RUN 


You can easily decide to have, for example, randomly coloured letters, 
which can be quite spectacular, as this example shows: 


10 REM DEMO 146 
20 REM RANDOM LETTER COLOURS 


30 AS=CHRS$ (141)+CHRS$ (129) +CHRS$ (157) +CHRS(129+RND(S6))+"HI THERE, BOB" 


40 FRINT A$ 
90 FRINT A$ 
60 RUN 


Note that the colours chosen for the letters do not include red (129) to 
ensure that red on red does not appear. 


Typing out CHR$ (whatever) can become a little tedious. It is possible 
to get around this by using VDU statements. The following program, 
which uses VDU statements, produces the same effect as program 
14B. 


10 REM DEMO 14C 

20 KEM USING VDU STATEMENTS 
30 YOU 141,129,157,129+RND(4) 
40 FRINT "HI THERE, BOE" 

30 VOU 141,129,157,129+RND(64) 
60 PRINT "HI THERE, BOE" 

70 RUN 


l’ll now try and summarise some of the points from the preceding 
discussion, leading into another version of the program ‘Mastermind’. 
There are many, many computer versions of the game. In most of 
these (and in this version), the computer selects a four-digit number, 
and the human player has to guess the number. A correct digit in a 
correct position in the four-digit code scores a ‘black’, and a correct 
digit in the wrong position scores a ‘white’. Each digit in the code is 
different. 


As we said a little earlier, preceding a PRINT statement with a 
character control code, from 129 to 135, changes the colour of the 
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PRINT output from that line. Enter the program, and then return to the 
book for a discussion on it. 


360 


REM *xX MASTERMIND xx 

DIM €C(4),6¢4) 

MODE7 

FRINT éththé 

VOU 129,157,131 

PRINT "I am thinking of & four-digit number" 

VDU 129,157,131 

FRINT' which you have 10 goes to discover." 7’ ’ 

VDU 129,157,131 

FRINT'ALL four digits are different..."7%%’ 

VDU 129,157,131 

FRINT'Press any key to begin." 

A$=GCETS 

CLSt{FRINT? ¢/ 

CC 1>=RNDC9) 

FOR Z=2 TO 430¢Z)=RKNDC(9) 

FOR J=1 TO Z-13IF C¢CJ>=C¢2Z) THEN 170 

NEXT S NEXT 

FOR G=1 TO 10% PRINT CHR$(136) S;CHRS$(157 > 3 
CHREC 133) 5 "Enter quess mumber "5G 


INFUT ASAL=ASPRINT CHRS$¢11) SCHRS (11) 3CHRS(11) 
FOR Z=1 TO 436¢Z)=A-1LOXINT(CA/10) 
A=INTCA/10) SNEXT 

m=O IW= 9 

FOR Z=1 TO 432TFC(Z)<260Z) THEN 280 
B=B+13°6¢°Z)=0 

NEXT 

FOR Z=1 TO 43IF G¢(Z)=0 THEN 330 

FOR J=1 TO 4¢IF C¢Z><26045) THEN 320 
W=W+ 1 

NEXT J 

NEXT Z 

PRINT A1L;CHRS(132) 3 "scored" ;CHRS(129) 56 
3" plack";3:IF Be>l PRINT "s"'3 

PRINT CHR$(132)3 "and" ;CHRS$ (129) 5 W3 

“ white";¢IF Wes>l PRINT "s" 

IF W=1 PRINT 
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370 IF B=4 PRINT CHRS$(129) SCHR$(15 
CHRE(C131 "You quessed it im just "3 
Wess" SS IF Gel FRINT "es" ELSE FRINT 
380 IF B<:4 NEXT G 
390 PRINT CHR$(134)3"The code was" 
CHR$ (6129) 3004) 5003930029501) 


Look at line 390. This prints the words ‘“The code was” in cyan, and 
C(4);C(3);C(2);C(1) in red. To change the background colour, you 
specify the colour (i.e. CHR$(129) for red) followed by CHR$(157) 
which tells the computer you want that colour on that line as a 
background. The CHR$(157) is followed by the control for another 
colour, which determines the colour of the letters printed. Line 370 
prints a red (129) background with yellow (131) words. 


The constant printing of CHR$’s_ can take time, so a VDU statement 
can be used instead. Look at line 7@. This line — VDU 129,157,131 — 
takes the place of all that appears between the word PRINT and ;‘’You 
guessed it...” in line 370. We'll be looking at applications of VDU in 
more detail shortly, but first we must examine the other graphics 
modes. 


As we said earlier, there are eight graphics modes, numbered from 
zero through to seven. The lower the number of the mode, the higher 
the resolution. The higher resolution modes need more memory than 
do the lower resolution modes. If you have a Model A machine you 
can only use modes 4, 5, 6 and 7. 


Here is a summary of the modes: 


Mode number text/graphics grid(across by 
down) Memory needed 
7 text, chunky 340 X 25 1K 
graphics 
6 text, two 340 X 25 8K 
colours 
5 text graphics 20 X 32 10K 
four colours 16@ X 256 
4 text graphics 40X 32 10K 
two colours 320 x 256 
3 text, two 80x 25 16K 
colours 
2 text graphics 20x 32 20K 
16 colours 16@ X 256 
1 text graphics 49 X 32 20K 
four colours 320 x 256 
My text graphics 80 X 32 20K 
640 X 256 
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You set mode, foreground and background colours by numbers. 
MODE n sets the mode to n, and also clears the screen. COLOUR n 
(where n is less than 16), sets the foreground colour, and where n is 
greater than 128 (actually is n + 128), sets the background colour. 


There are two colours in modes Q, 3, 4 and 6. Although these are set 
initially to white (1) and black (@), they can be changed. There are four 
colours available in modes 1 and 5. As with modes @, 3, 4 and 6, you 
can change these colours, but initially they are white (3), yellow (2), 
red (1) and black (@). Mode 2 is the most generously supplied with 
colours, eight standard ones and eight which flash. Numbered from 
zero to 15, the initial colour numbers are black, red, green, yellow, 
blue, magenta, cyan, white, flashing black, flashing red, flashing 
green, flashing yellow, flashing blue, flashing magenta, flashing cyan 
and flashing white. 


Let us look at how the colours are allotted with a simple program. 
Enter and run this, then return to the book for a discussion on it. 


10 
20 
30 
40 
70 
60 
70 
30 
70 
100 
110 
120 
130 
140 
150 
160 


REM MODE 6 DEMO 

MODE 6 

REPEAT 

COLOUR 0 

COLOUR 128 + 1 

CLS 

PRINT ¢’’’"DEMONSTRATION" 

PRINT “FOREGROUND 0, BACKGROUND 128 + 1" 
FOR J=1 TO 20003NEXT 

COLOUR 1 

COLOUR 128 + 0 

CLS 

PRINT °°7°77 7 ?"DEMONSTRATION" 

PRINT "FOREGROUND 1, BACKGROUND 128 + Q" 
FOR J=1 TO 2O003NEXT 

UNTIL FALSE 


As | said a few paragraphs ago, there are four colours available in 
modes 1 and 5. This next routine goes through all the combinations 
available in mode 5, and also shows the size of the text (where there 
are 20 characters across the screen). 


10 REM MODE S DEMO 

20 MODE 5S 

30 FOR N=0 TO 3 

40 FOR M=3 TO 0 STEP -1 
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~Y0 COLOUR WN 

60 COLOUR 128 + M 

70 CLS 

80 FRINT ¢’¢ “7 "DEMONSTRATION" 

90 FRINT “7 °"FOREGROUND "; 

100 FRINT “’*’"BACKGROUND "3M," + 128" 
110 FOR J=1 TO 3000 3NEXT 

120 NEXT M 

130 NEXT N 


Already, just from running these two demonstrations, you should have 
picked up a number of ideas regarding the use of the COLOUR 
command. Line 7@ is needed to make the entire screen clear to the 
designated background colour. Take out line 7@ and see what 
difference this makes. 


If you have a model B machine, run the following program, which puts 
the computer through all its paces. This routine is based on the 
demonstration for mode 5, and you need only make a few simple 
changes to run it. 


10 REM MODE 2 DEMO 

20 MODE 2 

30 FOR N=0 TO 15 

4) FOR M=15 TO 0 STEF ~1 

45 IF M=N THEN 120 

20 COLOUR N 

60 COLOUR 128 + M 

70 CLS?SOUND 1,-15,N+Ma10,1 
B80 FRINT °/ "DEMONSTRATION" 
90 PRINT ’’?’"'FOREGROUND "3N 
100 PRINT ’’?7"BACKGROUND "33" + 128" 
110 FOR J=1 TO 20003NEXT 

120 NEXT M 

130 NEXT WN 


As you run this program (which takes quite a while), you'll see some 
colour combinations are particularly effective, while others make it 
impossible to read the text, or are just unattractive, or both. Keep a 
pen and paper near you when you run this, and take note of the more 
effective combinations. 
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GCOL/CLG 


You use the GCOL statement to set up the screen for coloured 
graphics. The GCOL statement has two parameters, the first 
determines the nature of the manipulation of the plotted point, and the 
second determines the foreground (n less than 16) or background (n 
greater than 128) colours. CLG is the graphics version of CLS: it clears 
the background to the colour specified. The following routines show 
some of the results of using GCOL. They are in mode 5, and may be 
run on both model A and B machines. 


10 REM GCOL DENG ONE 

20 MODE 3S 

30 FOR N= TO 2 

40 GCOL 0,N 

~O FLOT 1, RHDCS00)2,RND¢S003 
60 FOR Je) TO 2000 ¢NEXT 

7Q NEXT N 


10 REM GCOL DEMO TWO 

20 MODE &S 

30 FOR N=0 TO 3 

40 FOR M=3 TO Q STEF -1 
20 GCOL O,N 

60 GCOL 0,M+128 

70 CLG 

80 PLOT L,RNDCLO00) ,RNDC1000) 
90 FOR J=1 TO 2000 3NEXT 
LO0 NEXT # 

110 NEXT N 


GCOL determines the colour which will be used — and how it will be 
placed on the screen — for all graphics operations which follow it in a 
program. The first number after GCOL specifies the logical operation 
which will be performed at that plotted point on the screen, as is 
graphically illustrated in the following routine. 


10 REM GCOL, DEMO THREE 

20 MODE & 

30 GCOL, O,1°GCOL 0,128+2°:CLG 
40 FOR A=Z200 TO 1000 STEP 40 
JO FOR B=1 TO 1000 STEF 40 
60 DRAW A, BINEXTSNEXT 
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70 FOR N=0 TO 4 

80 FOR M=0 TO 4 

90 MOVE 0,03SOUND 1,-15,Z20XCM+tN),2 
100 GCOL M,N 

110 FOR A=200 TO 1000 STEP 40+M+RND(4) 
120 FOR B=1 TO 1000 STEP 39+4+N+RND(4) 
130 DRAW A,B S NEXT? NEXT 

140 NEXTSNEXT 

150 SOUNDI,-15,43,20 


The numbers which come immediately after GCOL are 7 to 4, and the 
operations they perform are ‘logical OR’ (1), ‘logical AND’ (2), ‘logical 
EOR’ (3) or the colour can be inverted (4). 


If you have a model B machine, you might like to run the following 
version of the preceding routine. 


10 REM GCOL DEMO THREEE 

20 MODE 2 

30 GCOL 0,1:GCOL 0,128+5:°CLG 

40 FOR A=Z00 TO 1000 STEP 40 

20 FOR B=1 TO 1000 STEP 40 

60 DRAW A, BI NEXT I NEXT 

70 FOR N=0 TO 15 

80 FOR M=0 TO 4 

90 MOVE 0,02SOUND 1,-15,Z20X(M+tN) ,2 
100 GCOL M,N 

110 FOR A=Z200 TO 1000 STEP 40+M+4*XRND(4) 
120 FOR B=1 TO 1000 STEP S39+N+S*xRNDC4) 
130 DRAW A, BS NEXT? NEXT 

140 NEXTSNEXT 

150 SOUND1I,-15,43,20 


This next program also shows GCOL in use. The first parameter (i.e. @, 
1, 2 or 3) is shown in the top left hand corner, and a circle is plotted. 
After the program has been running for a while, and the circles start 
overlapping, you'll be able to clearly see the effect each of these 
numbers has. Run this until you are sure you understand what is going 
on. 


10 REM GCOL CIRCLES 

20 REM Based on program 
30 REM By Jeremy Ruston 
40 MODEZ 
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EQ) ROEM OCI K OKO 3K OK OKK KKK 
60 REFEAT 
70 SOUND 1,-3,100,;4 
80 Q=RNDC 43-1 
90 FRINTTABCS,3)95Q 
100 GCOL &,RNDC?7) 
110 FROCcircleCRND( 64074320, 
RNDCS1294+256,RND(300)> 
120 UNTIL FALSE 
L330 FOE KKK OK OKOKOK OK KOKOK 
140 DEF FROCcircle(xcoord,ycoord,radius) 
130 LOCAL anele,step 
160 step=S+RNDC7 >) 
170 FOR angle=-0 TO 340 STEFF step 
180 MOVE scoord, ycoord 
L?°0 MOVE SINCRADCangqle)) Kradiust+xcoord, 
COS CRADC angle) > *radiust+ycoord 
“00 FLOT 85,SINCRADCanglet+step) )xracdius 
+xcoord,COSCRAD Canglet+step))x 
radius+ycoore 
10 NEXT angle 
720 ENDFROC 


e 


I PS 


ba 


If you do not have a Model B machine, run the program in mode 5. It 
still works, but is not as attractive. 
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PLOT 


PLOT is a remarkably flexible statement in BBC BASIC, with over 40 
ways to use it. The word PLOT is followed by three parameters. The 
first one determines the kind of PLOTting which will take place, while 
the last two give a location, either absolute (such as 9,@ being the 
bottom left hand corner of the screen) or relative (so 100,100 is 100 
points up and 100 points across from the last point plotted). The first 
parameter dictates whether the following two will be treated 
absolutely or relatively. 


For the purposes of this book, the important first parameters after the 
word PLOT are the numbers zero to seven, and 8@ to 87. 


First 

Para 

meter Effect: 

0 This uses a PLOT statement of the form PLOT @,x,y to 


move relative to last point. The computer initialises a 
graphics mode (with a line like 1@ Mode 5) by moving to 
the 0,0 point, the bottom left hand corner of the screen. 


1 This draws a line from the present position, to the point 
specified by the two co-ordinates. The line is drawn in the 
current foreground colour, which is white unless another 
colour has been specified. 


2 This draws a line as does 1, but in the logical inverse colour 
(with the logical inverse of @ in a two-colour mode being 1, 
and with the following logical inverses in a four colour 
mode: @ (3), 1 (2), 2 (1) and 3 (@)). 


3 This performs like 1 and 2, but draws the line in the 
background colour. 
4 This is a very useful plot command, which moves the 


plotting point (but without actually plotting anything) to 
the absolute position specified. PLOT 4,0,@ will move the 
PLOT position to the bottom left hand corner. Because 
this is so useful, the word PLOT and the first parameter 
may be replaced by MOVE so to move to the bottom left 
hand corner, you need just to enter MOVE @,@. 


5 This is another very useful command, which draws a line 
from the present plotting position to the absolute position 
specified (as opposed to PLOT 3 which draws the line 
counting from the present PLOT position). PLOT 5,x,y can 
be replaced with DRAW «x,y. 


6 This performs as does PLOT 5, but plots the line in the 
logical inverse colour (see the explanation of PLOT 2 for 
information on logical inverse colours). 
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7 This is a companion to PLOTs 5 and 6, drawing a line to an 
absolute point, but in the current background colour. 


PLOTs 4, 5 and 7 can be seen at work in this little routine, which 
appears to make a line flash off and on, but is really plotting it 
alternatively in the foreground and background colours. 


10 REM Using PLOT 4, 3S and 7 
20 REM "Electric Spark" 
30 MODE 5 

40 REPEAT 

20 X=RND(C1280)-1 

60 Y=RND(1024)-1 

70 FPLOT 4,0,0 

80 FLOT S,X,¥Y 

90 SOUND 13,-15,RND(4),1 
100 PLOT 4,0,9 
110 FLOT 7,X,Y 
120 UNTIL FALSE 


Line 3@ sets the mode to 5, and lines 49 and 12@ are the master 
REPEAT/UNTIL loop which keeps things running forever. Lines 50 
and 6@ choose a random co-ordinate for the end-point of the line. Line 
70 moves the plotting position to 8,0 and from there line 8@ plots a line 
to the X and Y co-ordinates chosen in lines 50 and 69. Line 98 makes 
an appropriate noise. This line does nothing to help the demonstration 
except add appropriate (?) sound effects. Line 180 moves the plot 
position back to @,@ and then line 11@ plots another line which is 
identical to the one plotted by line 80, except that it is plotted in the 
background colour, so the line vanishes. 


This demonstration could look very effective in colour. See if you can 
apply what you learned in the section on GCOL to alter this routine 
slightly so that instead of plotting in white on a black background, it 
plots in yellow on a red background. When you have tried this (and 
only then), examine the next listing which shows how | did it. The lines 
between 30 and 4@ are the ones | added. 


10 REM Using PLOT 4, 3 and 7 
20 REM "Electric Spark" 

30 MODE 5S 

32 GCOL 0,2 

33 GCOL 0,128+1 

34 CLG 

40 REPEAT 
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WY 
60 
70 
& () 
90 
100 
110 
120 


AZRND C1280 )-1 
Y=RNDCLO2Z4)-1 

PLOT 4,0,0 

PLOT SeX%o¥ 

SOUND 25,-15,RNDC4) 51 
PLOT 4,.0,0 

PLOT 7eXo¥ 

UNTIL FALSE 


Line 32 determines that the foreground colour will be yellow, line 33 
that the background will be red, and line 34 clears to the graphics 
background. 


PLOT numbers 80 to 87 behave like number 0 to 7, except that they 
plot and fill a triangle, using the last two points visited when filling 
triangles with colour. 


The PLOT commands are very flexible, as the following programs 
demonstrate. 


10 
2.0 
30 
40 


REM FLOT demonstration 

REM Based om “Tce Cave" 

REM ny Norman Alm 

MODE 4 

FOR Net TO 2 

Ke SA StRND C1) 
XSehNDCL240) 3 Y*RNDCL0O24) 

FOR R=RNDC7094100 TO 1000 STEP RND(20)4+12 
MOVE R,K 

DRAW X,F 

DRAW (X-K), 7 

DRAW kK 

Te TIMES REPEAT UNTIL TIME-Ts10 
NEXT RF 

T= TIMES REPEAT UNTIL TIME-T?100 
NEXT WN 

RUN 


REM ¥*Ice Cave 2x 

REM Eassed om ATOM proeram 
REM by Norman Alm 

MODE S 

REFE AT 

CLG 
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22.0 


FOR T=1 TO 2 

A=RND C3) 

GCOL 0,A 

A=RNDC1Z80)-1 
Y=RNDC1024)-1 

FOR R=600 TO 1300 STEP 13+RNDC10) 
MOVE K,600 

DRAW X,R 

DRAW (CA-K) > ¥ 

DRAW 600,¢Y-R) 

DRAW R,600 

NEXT R 

NEAT T 

T= TIME 

REPEAT UNTIL TIME-T>60 
UNTIL FALSE 


REM *XIce Cave 2x 

REM Adapted for Mode 2 
REM Based om ATOM program 
REM by Norman Alm 
MODE Z 

REPEAT 

CLG 

FOR T=1 TO 2 

A=RND C7) 

GCOL 0;A 

X=RND(C1280)-1 
Y=RND(1024)-1 

FOR R=600 TO 1300 STEP 15+RNDC(10) 
MOVE k,600 

DRAW X,R 

DRAW (X-R),Y 

DRAW 600,¢Y-R) 

DRAW &,600 

NEXT FR 

NEXT T 

T=TIME 

REFEAT UNTIL TIME-T>60 
UNTIL FALSE 
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REM ZEBRA TRIANGLES 

REM RUN TN MODE 2 ON MODEL & 
MODES 

REPEAT 

GCOL RMD?) > 0 

FLOT 85, RNDCL2000-1,RNDCLO2Z49-1 
T= TTME 

REPEAT URTTL TIME-To2 0 

Tr RNBC?o2.02 RUN 

UNTIL FALSE 


REM ROTATING SQUARES 
REM BY JEREMY RUSTON 
REPEAT 

MODEL 

ReRND C7 243 

FOR X=0 TO 999 STEP R 
GCOL RNC S21, OCX/R)D MOD S41 
MOVE X40 

DRAW O,1000-x 

DRAW LOO0~-A%, 1000 

DRAW LOQ0,% 

DRAW X40 

NEXT 

UNTIL FALSE 


REM SHRINKER 

REPEAT 

MODES 

KReRND CL? +4 

FOR ~A=0 TO 600 STEF FE 
MOVE 2,0 

DRAW 0,1000~-% 

DRAW 1O00-xX,1000-x 

DRAW LOOOX,x% 

DRAW X, 0 

SOUND 17,-L0O-RNDCS) »256-4%/341 
NEXT xX 

T=TIME 

REPEAT UNTIL TIME-T2100 
UNTIL FALSE 
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140 
120 
1Lé60 
170 
180 
190 
zZ00 
2140 
220 
230 
240 
230 
260 
27? 
Leg 
2F 0 
300 
310 


eyes 
wat, 


3230 


10 
20 
30 
4) 
ws 0) 
&0 
70 


REM MOTRE-LACE 

REM ES Jeremy Ruston 
REPEAT 

TIME = 0 

MODES 

PROC chop per 

SeRHD CLOG 3-1 

Yak C1000 3-2. 

rOoR Te) TO 899 STE 4 

IF TXIMESSOO THEN FROCchopper 
MOVE T.0 

PLOT 63X57 

PLOT &sTs999 

MOVE 0,7 

FLOT &s%5¥ 

PLOT 6,°99,T 

SQUND L,-RNDO7),.23904RNDC 25) 51 
NEXT 7 

TIME=0 

REPEAT UNTIL TIME>200 
UNTIL FALSE 

DEF FROCchopper 

SQUND L,-15,RNBDCS0>,10 
SOUND 2,-15,RND030)34+30,10 
SOUND 3,.-15,.RND(309+60,10 
LOCAL Asb 

A=x=RAND CBI 1 

REPEAT 

RaRND (8-1 

UNTIL Balsa 

VDU 19,1.8,.0,0,0,19,0,.6,0,0,0 
TIME=0 

ENB ROC 


REM SINE CURVE 


cEM NOTE HOW FOREGROUND 


REM AND BACKGROUND COLQUES 
REM ARE DEFINED USING VDU 


“EM SEE FOLLOWING SECTION ON 


REM USE OF VDU 
MODE 4 
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3 
0 


100 


Li0 
120 
130 
140 
12:0 
140 
17 0 
1&0 
190 
200 


INPUT’ ?¢"Backeround rumber ">A 


TNFUT*’ ¢¢ "Foreground mumber "6B 


TF AsB OR AO OR ASLS 

OR B00 OR BS1S THEN 70 
VOU 19,1,68.0.0,90 
VOU 19,0,8,0,0,0 
CLG 
FOR X=0 TO FIKZ.83 STEP 0.01 
MOVE 1604X,SINCX)K4604+412 
DRAW LGOXX,5SINCXK4 604512 
SOUND 17,-15,S5ITNCX)%204100,3 
SOUND 13,-1L5,STINCX) «20410153 
SOUND 19,-7,255-SINCXIKZO+10153 
NEAT x 


REM *XTunmel Turner xx 
REM RUN IN MODE 2 ON MODEL E& 


MODE 
Za? 


A=RNDC3002 

REFEAT 

IF RNDC1I250.8 Z=RNDC4) 
MOVEO,0 

DRAW ZKA,A 

SQUND 17,-15,A53 
FROCcnhange 

DRAW Z2KA, ZA 
SOUND 18,-15,A,3 
FROCchange 

DRAW A,Z*KA 

SQUND 19,-135.A,3 
FROCchanee 

DRAW A,A 
FROCchanee 

GCOL O,RNDC7)-1 
TF RNDCSI23 A=RNDCZ00) 
UNTIL FALSE 

DEF FROCcharnaee 
A=A+RND(9)-RND CD) 
ENDFROC 
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REM SINE RIEERON 
MODE A 

VDbU 19,0,0,0;0,0 

VDU 19,054,50,0,0 

C= 100 

REFEAT 

MOVE C-100,0 

FOR A=1 TO 40 
B=AxXPT /2 0 

DRAW AxX20+0C,S5TNCB)X3104320 
SOUND T7y-15,255-As3 
NEXT A 

C=C +3 

UNTILFALSE 


REM Orbital Sketcher 
MODE 4 

REPEAT 
VDOUL9,0;,;0,0,;0,0,19,0;RND(6),0,0,0 
M=RND C400) 

N=RNDC400) 

MOVE S00+M,300 

FOR A=il TO 205 STEF 3 
Bae KAS LOO 

C=2MxXCOS (B)+600 
DeNXSTNCEI+4500 

DRAW (,D 

NEXT 

IF RNDCLO0)=5 CLG 

LF RNDCLOQOS4 THEN SO 
UNTIL FALSE 


REM ROLLER COASTER 
MODE 4 

Kf 

VDU 19;1,0,0,0,0 
C=100 

REFEAT 

Te RND CZ) 

A= 120 

F=3468 
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100 
110 
120 
130 
140 
120 
160 
L7G 
1890 
L?o 
a 
210 
iaral 
230 


£40 


10 


wh 


30 
4+ () 
WO 


120 
130 
140 
150 
140 
170 
180 
190 
200 


10 
is 
20 
30 


VOU 19,0,%s0,0,0 

MOVE C-100,0 

FOR A=1 TO 60 

B=AxrI/ 20 

MOVE Q,F 

Q=AxZO+C 

P=SINCE)k3104320 

IF Ted PLOT 7, Ax«204C-50, STNG) X3104920 
DRAW AXZO+C, SINCE IKS1O4+ 320 
SQUND 18,-A,252 «SINCE ,.10 
SOUND 17 ,-As250 KSINR), 10 
NEXT 

Cate? 

X=AND CZ ) 

UNTIL FALSE 


MEM COSMIC TABLE MAT 
REM ADAFTED FROM ’Spiraeliser ’ 
REM By Jim Waeleh and Faul Holmes 
REM RUN IN MODE & ON MODEL A 
MODE 2 
MOVE 600,500 
REPEAT 
FOR N= 1 TO S00 STEF RNDCS)/RNDCS) 
AZINT €200/200KN) 
GCCOL OA MOD 8 
DRAW 600-AxCOSCN/46 KFT), SOO+AKSINON/S6KPT) 
NEXT N 
Q=RND C4) 1 
FOR N=3500 TO 1 STEFF ~-RNDCS)/RNDCS) 
AzINT ¢€200/200KN) 
GCOL Q;A MOD 8 
DRAW 600-AxXCOSCN/46X*FT) ,-SOOtAKSINON/GKPT) 
NEXT WN 
IF RND(Sds2 CLGOSMOVE 600,500 
UNTIL FALSE 


REM COSMIC TABLE MAT 

REM MARK 11 (more adventurous > 
REM ADAFTED FROM ‘Spiraliser ’ 
REM By Jim Walsh and Faul Holmes 
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REM RUN TN MODE 3S ON MODEL fA 
MODE 2 
REPEAT 
GES+RND C3) -RND CS) 
MOVE 600,500 
FOR N= 1 TO S40 STEF RNDCS)+2 
ASINT €200/200%N) 
GCOL O.A MOD G 
DRAW 600-AxXCOSCN/6¥PT) »S00+AKSINON/ SKFT) 
NEXT N 
Q=RND C41 
FOR N=540 TO 1 STEF ~-RNDC3) xe 
AS INT (200/200 KN) 
GCOL Q,A MOD G 
DRAW 600~-AXCOS CN/GKPT) »S00+AXSTNCON/ GPT) 
NEXT WN 
CLG 
UNTIL FALSE 


REM COSMIC TABLE MAT 

REM MARE dil Cwith sound!) 

REM ADAPTED FROM ’Spiraliser ’ 
REM Ey Jim Weleh and Paul Holmes 
REM RUN ITN MODE & ON MODEL A 
MODE 2 

REPEAT 


2 ©=3+RNDC3)-RND CS) 
» MOVE 600,500 


FOR N= 1 TO S40 STEP RNDCS) +2 
A=INT (200/200 KN) 


» SOUND 18,-19,N/2,10 


SQUND 17,-7,1000 MOD CAt+12/N),10 
GCOL 0, MOD G 
DRAW 600-AxXCOSCN/G6KPT) ,S00+AKSINON/GKPT) 
NEXT N 
Q=RNDC4)-1 
FOR N=540 TO 1 STEP -RNDC3) x2 
AZINT €200/200%N) 
SOUND 16,-15,1000 MOD CA+S/N),10 
SOUND 17,~-15,N/Z2,10 
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1460 GCOL Q,A MOD G 

170 DRAW 600-AXCOS(CN/6XFT) , SO00+AKSINON/ SXFT) 
180 NEXT WN 

190 CLG 

200 UNTIL FALSE 


VDU drivers 


The VDU driver is a piece of software through which all characters that 
are going to be printed are sent. The characters are sent as codes 
between @ and 255. The effects of the codes are different, depending 
on their values. All codes of 32 or greater are printed on the screen, 
and all codes less than 32 are acted upon in different ways, doing 
things like moving the cursor around. In addition, code 127 is the same 
as the delete key, and so fits in the latter category. 


The exact meanings of the codes @ to 31 are described below: 
(Note that using this table you can see what control key to press to 


gain the same result. For example, code 20 can be generated by using 
VDU 29, or by pressing control-T, or even by PRINT CHRS(29).) 


0 cece sese cose {a 
i---4 
Zo — Et 
B---C 
4 eect eres coe D 
ei ones ease aes E- 
b---F 
7---G 
§--—-H 
Jomo 
10--=J 
Li---K 
12--—L. 
13---M 
L4---N 
15---O 
Lé---F 
18---R 
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LGann 3 


‘alco -T 
hao © 
ede oe bl 
Be A eee cree see x 
Fie Co Y 
ob 
Bm mo 
2D one cee oe" 
3 [Y cne cree ee AN 
Bd 


| have only described in detail those codes that are useful and not 
explained fully in the User Guide. 


Code Use 

2 Used to stop character being sent to the printer. 

3 Starts sending characters to the printer. Thus, to list a program 
to the printer, you use control-B, then type ‘LIST’, then press 
‘return’. When the listing is complete, you just press control-c to 
turn off the printer, and you’re done. 

4 Turns off the effect of code 5. See code 5. 

5 Joins the text and graphics cursors. This means that text is 


printed at the last graphics point visited, and that the graphics 
cursor can be moved about with codes 8 to 11. This program 
shows you how it works. 


10 MODE 4 

20 VDU & 

30 FOR T=1 TO 40 

40 MOVE RND(1280),RNDC1024) 
90 FRINT "BEC Computer 32k" 
60 NEXT T 

70 VbU 4 


The User Guide shows you how to use the VDU 5 feature to 
make an accent on a letter — this is an important use of the 
feature. One disadvantage with the VDU 5 mode is that text is 
printed very slowly, and scrolling does not normally take place. 
Another useful way of using VDU 5 is in the labelling of axes in 
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graph drawing. The biorhythm program in the ‘welcome’ 
program collection illustrates this use. While in VDU 5 mode, 
text printing only takes place in the current graphics window. 
Windows are explained in the discussion of codes 24 and 28. 


This code just causes a short ‘bleep’ to be added to the sound 
queue. This program shows one use of it. 


10 FOR T=1 TO 10 
20 YVDU 7 
OQ NEXT T 


8—11These codes move the cursor left, right, down and up 


13 


14 


respectively. For example, this section of code moves the cursor 
left, to correct the error in line 10: 


10 AS="BEC Computer 325" 
20 PRINT AS; CHES (8) f UK" 


Assuming you are conversant with the effect of *FX4, 1 on the 
cursor control keys, you may have noticed that the codes 
created by them in this state are 128 greater than the cursor 
movement codes. Thus this program allows you to type on the 
screen, shifting the cursor around with the cursor control keys. 


10 FX 4,1 

20 KEFEAT 

30 A=GET 

40 IF Asz1l2Z7 A=A-128 
20 VbU A 

60 UNTIL FALSE 


Code generated by pressing ‘return’. Returns the cursor to the 
start of the current line. BASIC usually puts a cursor down in 
after this character. 


Turns page mode on. You will often use this mode to list 
programs too long to fit on the screen, so it can be done in 
sections. When page mode is active, the computer waits for you 
to press one of the two shift keys before printing each new page, 
to give you time to assimilate the text being printed. This 
program shows VDU 14 by printing 100 random numbers. The 
trouble is that they scroll off the screen too fast for you to read 
them. The second time, however, page mode is on, which gives 
you ample time to read the numbers. 


10 FOR T=0 TO 100 
20 FRINT RAND 
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30 NEXT T 

40 FRINT "PRESS ANY KEY ..."' 
~0 DUMMY=GET 

60 VDU 14 

70 FOR T=0 TO 100 

80 FRINT RRND 

70 NEXT T 

LO0 YDU AS 


VDU 19.... enables you to change the colour of an area or spot 
of colour of the screen, without having to redraw the object. 


To use this command effectively, you have to think about colour 
graphics in a different way. Rather than consider blobs of colour, 
think of the screen being divided into a number of squares, 
where each square, or pixel, can hold a number. This number is 
restricted to magnitude by the graphics mode you are using: 
Mode @ — @ to 1 

Mode 1 — @to3 

Mode 2 — @to 15 

Mode 3 — @to 1 

Mode 4 — @to1 

Mode 5 — @to3 

Mode 6 — @to 1 


The machine is set up in such a way that each number 
corresponds to a specific colour. In modes @,3,4 and 6, a pixel 
holding @ will appear black and one holding 1 will appear white. 
In modes 5 and 1 the relationships are: 


0 — black 

1 — red 

2 — yellow 

3 — white 
In mode 2, the relationships are: 
@ — black 

1 — red 

2 — green 

3 — yellow 

4 — blue 


5 — magenta (purple) 

6 — cyan (light blue) 

7 — white 

8 — flashing white/black 

9 — flashing red/cyan 

10 — flashing green/magenta 
11 — flashing yellow/blue 

12 — flashing blue/yellow 
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13 — flashing magenta/green 
14 — flashing cyan/red 
15 — flashing white/black 


The intriguing possibilities soon become apparent once you realise that 
you can change these relationships by executing a command of the 
form VDU 19, colour__number, colour, 0,8,0 where ‘colour__number’ 
is a number in the range outlined in the first table. Colour is a variable 
in the range 9 to 15. After this statement has been executed, any pixels 
of holding the number ‘colour__number’ will assume the colour given 
by ‘colour’ according to the second table of this section. 


There are many applications for this command. If you first set the 
pixels of a graphics screen to appear black, no matter what number 
they hold, and you then draw a complex shape or pattern before 
restoring the normal relationships with VDU 20, it will appear as if the 
drawing was done instantaneously. 


For example, this program draws a circle with the screen turned off, 
and then restores all the normal colours very quickly. The effect can be 
quite dramatic: 


10 MODES 
20 FOR colour=1 TO 3 
30 VDU 19,colour,0,0,0,;0 
40 NEXT colour 
YO MOVE 640,512+300 
60 FOR anele=0 TO 330 STEF 30 
70 SOUND 1,;-7,anqgle/Z,i1 
80 GCCOL O,1 
90 MOVE 640,512 
100 FLOT 85,SIN(CRADCangleti0)>9*5004+640, 
COS CRADCanglet+10)>*500t512 
110 GCOL 0,2 
120 MOVE 640,512 
130 PLOT 85,SINCRADCanglet20))>*500+640, 
COSCRAD Canglet+20)>*S00+512 
140 GCOL 0,;°¢ 
150 MOVE 640,512 
160 FLOT 85,SINCRADCangle+30))xS00+640, 
COSCRADCangle+30)>xS5004t512 
170 NEXT anele 
180 VDU 20 


130 


As a logical step from this example, if you draw many similar figures, 
all set to black, and then in rotation set each to a specific colour and 
then back to black again, the illusion of movement is created. This 
example should make the technique clear: 


10 REM By Jeremy Ruston 

20 MODES 

30 FOR X=0 TO 1279 STEF 20 
40 MOVE X,90 

40 GCOL 0,¢¢X DIV 20) MOD 3)+1 
60 DRAW X,1023 

70 NEXT X 

80 REFEAT 

°0 FOR colour=1 TO 3 
100 SOUND 18,-15,75xcolour,10 
110 VDU 19,colour ,4,0;0;0 
120 Q=RNDC25) 
130 TIME=0 
140 REFEAT UNTIL TIME=Q 
130 VDU 19,colour,0,0;0,0 
160 NEXT colour 
170 UNTIL FALSE 


The program works by drawing a series of vertical lines in each of the 
three colours in turn. Then each colour is selectively turned to blue — 
line 110. A time consuming loop, lines 13@ to 140 is set up before the 
colour is reset to black. This technique works well in mode 2, where 
you can use 15 colours. Without this command it would be impossible 
to have any colours other than black and white in modes @,4,6, and 3. 
Thus if you like the idea of purple text on a yellow background, 
execute this: VDU 19,0,3,0,0,0,19,1,5,0,0,0. Make the five be 23, and 
try this in mode 6, and see what happens. 


24 This code enables you to restrict all graphics commands to 
operate in a rectangular section of the screen. This section 
usually consists of the whole screen. The rectangle is stated in 
terms of the coordinates of its bottom left hand corner and its 
top right corner. The four numbers have to be separated with 
semi-colons, and not commas, as you might expect. This 
program draws two sets of random lines — one with no screen 
window in effect, and one with a graphics window. The program 
expects a key press after the first session, to tell it to start the 
next lot of lines. 
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28 


26 


31 


23 


10 MODE 4 

20 FOR T=1 TO SO 

30 MOVE RND(C1280),RNDC1024) 
40 DRAW RNDC1280),RNDC1024> 
20 NEXT T 

40 A=GET 

70 MODE 4 

GSO VOU 24,200;20037003700; 
90 FOR T=1 TO 300 

100 MOVE RNDCL280),RNDC1024) 
110 DRAW RND(C1280),RNDC1024) 
1Z0 NEXT T 


This code is like the previous one, except that it defines a 
window within which text is restricted. The coordinates of the 
window are given in the same way as above, i.e. bottom left and 
then top right. Remember that the origin for text is the top left 
hand corner of the screen. Commas are used to separate the 
data. This program fills the screen with random letters and then 
defines a text window in the middle of the screen. The program 
ends without clearing the screen. When it has finished, type 
CLS, then press ‘return’. Try listing the program to see what 
happens. Do not make the coordinates given in the command 
too large for the current screen mode. 


10 MODE 7 

20 FOR T=0 TO 799 

30 VDU RND(246)+64 

40 NEXT T 

20 A=GET 

60 VDU 23,5,6+34;3 


Returns all the graphics and text windows to normal. Control Z is 
normally more convenient. 


Used to move the cursor to the position X,Y. Used in this format: 
VDU 31,X,Y. 


Redefines text characters. Use this program to redefine the 
character set by the variable CHAR. The pattern for the 
character should be set up in A$(). P should be set to TRUE for 
just printing the correct VDU command to redefine the 
character, and FALSE to actually do the redefinition. An 
example is given in the text of the program. Use ‘MODE 5, 
PRINT CHRS$(255)’ to examine the character you defined, 
presuming it is character 255. 
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10 REM Charecter redefinition 
20 FEM Copyriaht (C) Jeremy Ruston 
30 F=FALSE 
40 DIM A$¢8) 
SO ABCD ee eee eae” 
60 A602) RMKKKKK, | 
70 ABCBP= Ke gee eo Ke" 
SQ ASCP KR, KKK, KR," 
PO ARCS DKK. KK," 
LO0 ABC GPK, KKH, KK," 
P10 ASC7 I= "KR, eee Ke" 
L270 ACB) KRKKKKK, 
130 CHAR=230 
140 TF F THEN FRINT "VDU 23," 3 CHAR; 
ELSE VDU 23,CHAR 
1250 FOR ROW=0 TO 7 
160 TEMF=0 
170 FOR COL=0 TO 7 
180 TF MID#t¢cA$CROWF+1),COLAL, 1>='xK" 
THEN TEMF=TEMF +24 (7-COL > 
190 NEXT COL, 
200 TIF F THEN PRINT 3',"3 TEMP 3 
ELSE VDU TEMP 
210 NEXT ROW 
200 PRINT 
230 END 


Finally, here are two more programs which use a VDU statement for 
rather unusual results. Once you’ve run them, and seen what they do, 
try and work out how they achieve this. Notice that the second 
program must be exited via ESCAPE, then by typing in MODE 7, then 
pressing RETURN. 


10 REM SIDEWAYS SCROLL 

20 REM BY JEREMY RUSTON 

30 REM MODEL & ONLY 

40 MODEL 

50 FOR X=0 TO 999 STEF 20 
60 GCOL 0,¢¢X/20) MOD 3)d+1 
70 MOVE X,0 

80 DRAW 0,1000-X 

90 DRAW 1O000-4%,1000 
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100 


120 


200 


DRAW 1000,x% 

DRAW X,0 

NEXT X 

REPEAT 

FOR T=0 TO 7% 

VDU 23,0,13,T,03030;3 
NEXT T 

FOR T=79 TO 0 STEP -1 
VDU 23,0,13,T,0350503 
NEXT T 

UNTIL FALSE 


REM CORRUPTION 

REM ENTER MODE 7 AFTER ESCAPE 
REM BY JEREMY RUSTON 
REM MODEL E& ONLY 

MODE 1 

FOR X=0 TO 999 STEF 200 
GCOL 0,¢¢X/20) MOD 3)+1 
MOVE X,0 

DRAW 0,1000-x 

DRAW 1000-X,1000 

DRAW 1000,X 

DRAW X»0 

NEXT X 

REPEAT 

FOR T=0 TO 79 

¥VDU 23,0,12,T,0303503 
NEXT T 

FOR T=79 TO 0 STEP ~-1 
VDU 23,05124,T,030303 
NEXT T 

UNTIL FALSE 
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Introduction to 
arithmetic on the 
computer 


Have a quick glance at this section before you read it. You may well 
find it has no new information for you. If this is the case, feel free to 
turn to the next section. 


The symbols for the various operations in BBC BASIC are probably 
well known to you by now. They are multiply (*), divide (/), subtract 
(—), add (+), raise to the power (*). The computer follows a strict 
heirachy of operations. Anything within brackets is worked out first, 
and the material within brackets follows the same heirachy as material 
outside the brackets. Brackets may be nested, with the calculations 
within the innermost pair being worked out first. 


Raising to a power has the highest priority, followed by multiplication 
and division, with addition and subtraction last. A number is assumed 
to be positive unless it is preceded by a minus sign. Similarly, unless a 
decimal point appears within a number, the computer will assume it is 
an integer. Although you can use decimal points when working with 
the computer, commas are not allowed. The use of scientific notation 
for very large and very small numbers was explained in the section on 
variables. Refer back to that if you need a reminder on how this works. 


The BASIC on the BBC Microcomputer works very, very quickly, as 
can be seen by running the following programs. The first program in 
this section works out arithmetic progressions. You must enter the 
first term, the common difference, and the number of terms, and the 
computer will produce the information for you instantly. 


10 REM KxXArithmetic progressiomkx 

20 MODE7 

390 Z=RND(6)+128 

40 FRINT ’’’CHR$(Z)3"I’°11 mow work owt for you the" 
SO FRINT ’CHR$(Z)3"arithmetic progression from the" 
60 FRINT ‘CHR$(2Z)3"information you give me” 

70 INFUT"Erter the first term "FIRST 

80 INFUT"And mow the common difference "DIFF 

90 INFUT'How many terms? "TERMS 
100 TERMS=INTCTERMS+.5) 
110 CLS 

120 FRINT’ ‘CHR$(Z)3;"Arithmetic progression" 
130 PRINT CHRS(Z) 3° KKK KRM KKK KKK KKK KKK" 
140 FRINT’CHRS(Z)3"Term number Value" 

150 count=0 

160 FOR loop= 0 TO TERMS-1 
170 W=looptl 
180 Q=FIRST+(CloopxDIFF ) 
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190 count=count+Q 

200 FRINT W,Q 

210 NEXTloop 

220 PRINT ’CHR$(Z);TAEB(8);"The sum is "jZcount 


~RUN 

L’‘1ll mow work out for you the 
arithmetic progression from the 
information you give me 

Enter the first term 66 

And mow the common difference 3 
How many terms? 12 

Arithmetic progression 

YOK OK OK OKO KKK OKO OK KOK 


Term mumber Value 
1 56 
z 49 
3 72 
4 73 
a) 78 
& Si 
7 84 
3 $7 
9 90 

10 93 
Li 96 
12 99 


The sum is 9990 


As you can see, the program also works out the sum of the terms. 


r’11l mow work out for you the 
arithmetic progression from the 
information you give me 
Enter the first term .0034 
And mow the common difference .00012 
How many terms? 13 
Arithmetic progression 
2K KOK KOK OK KKK KK KKK 
Term mumber Value 

1 3+4E~-3 

z 3.9ZE-3 

3 3+64E-3 
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4 3+76E~-3 
wd 3+S8E-3 
& 4E-3 
7 4#.12E-3 
3 4.2Z4E-3 
9 4#.36E-3 
10 4,48E-3 
11 4.6E-3 


12 4,72E-3 
13 4,84E-3 
The sum is 3.356E-2 


The next program in this section determines the moment of inertia, 
polar moment of inertia and the area connected within a circular 
section. All you have to do is enter the radius. 


10 REM xxCircular sectionsxx 

20 MODE7 $$ Z=RND(46)+128 

30 PRINT ’’ ‘CHR$(Z)3"This program will work out the moment" 

40 PRINT’CHR$(Z)3"of inertia, polar moment of interia +" 

50 PRINT’CHR$(Z)3;"and the area connected within" 

60 PRINT’CHRS$(Z)3TAB(S)3"a circular section” 

70 FRINT’’’ “CHR$(Z)$;"FPlease enter the radius" 

80 INPUT radius 

90 X=2xKradiusi?M=PI 

100 PRINT’CHRS(Z)3"The moment of inertia is "3 (M*(X4%4))/64 

110 PRINT’CHR$(Z)3"The polar moment of interia is'’ 
CHR$(Z),2KCMKC X44) 1/64 


120 PRINT’CHR$(Z)3;"The area of section is "$3 (MKC(X*X))/4 


This program will work out the moment 
of inertia, polar movement of inertia; 
and the area conmected within 

@a circular section 
Please enter the radius 
235 
The moment of inertia is 1178588.12 
The polar moment of interia 1s 

Zod 176424 

The area of section is 3848.451 


This program will work out the moment 
of inertia, polar movement of inertia; 
andi the area commected within 

#2 circular section 
Flease enter the radius 
?1 
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The moment of inmertis is 0.785398163 

The polar moment of inmteria is 
1.57079633 

The area of section is 3.141359265 


Prime numbers are very easy to determine. 


10 REM +Prime numbers+ 

20 MODE73Z=128+RND( 4) 

30 FRINT ’’’ “CHR$(Z);"Enter the value of the maximum" 
40 PRINT ’CHR$(Z)3"prime mumber you want" 

20 INFUT ASIF A<1 THEN 530 

60 DIM FRIME(CA) }KL=A 

70 FOR J=1iTOASPRIME(J)=JtNEXT 

80 IF A<.4 THEN PROCprint_outiEndD 

90 FRIME(4)=5 

100 KL=4:1IZ=35 

110 ITZ=IZ+23:1IF IZ>A THEN FROCprint_outiEND 

120 JO=3 

130 EX=IZ/PRIME (JO? 

140 IF EX=INTCEX) THEN 110 

130 IF EX<FRIME(JO+1) THEN 180 

140 JO=J0+1 

170 GOTO 130 

180 KL=KL+13PRIMECKL)=IZ:GOTO110 

190 REM «KKK KOK OK OK OK KOK KOK KOKOK 
200 DEF FROCprint_out 
210 CLS 
220 PRINT ’’’CHR$(Z)3'"The prime numbers up to "j3A;" ares" 
230 PRINT ’CHR$(Z)3;TABCI7)3"Prime #*# Frime" 
240 FOR count=1 TO KLSPRINT CHRS$¢(2Z),counmt,PRIME(Ccount) {NEXT 
250 ENDFROC 


Enter the value of tne maximum 

prime mumber you want 

?B7 

The prime mumbers up to B87 ares 
Frime #¥ Frime 


moO MON & CH DOIN 
— 
_ 


a 
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12 3il 


13 37 
14 41 
1S 43 
14 47 
17 wa 
18 Ww? 
19 él 
20 &/ 
21 71 
a 73 
ao 79 
z4 83 


The mathematical ability of the computer can also, of course, be 
turned to produce other kinds of information, such as the day of the 
week a specified date falls on. 


10 REM x*xDay of the week 

20 A¢=". MONTUEWEDTHUFRISATSUN" 

30 INFUT "Day? "D 

40 IF D<i OR D=31 THEN 30 

30 INFUT “Month? ¢as 7) "mM" 

60 IF Mii OR M:12 THEN 50 

70 INFUT “Year? (as 1983) "Y 

80 Q=Y-(M=3) 

90 K=Q/100 

100 T=M4+12«(M<3) 

110 R=INTC13S«K(T41)9/5)4 INT (SKQ/4)-INTCK IF INTOK/ 494045 
120 R=R-(7KINTCR/7)) +1 

130 FRINT D3'/"3M3"/"5Y-19003" ~- "“SMID$CAS,R*3,3) 


Day? 23 

Month? (Cas 7) 12 

Year? (as 1983) 1984 
25/12/84 - TUE 


Day? J 

Momth? Cas 7) 1 

Year? (Cas 1983) 1999 
1/1/99 — TUE 


The final program in this section uses the computer to simulate the life 
cycles of two species, one of which preys upon the other, and to graph 
their relative populations. The relationship between the two species is 
controlled by a differential equation. You enter the starting 
populations, as numbers between one and nine. Fractions are 
acceptable, and it is fascinating to enter a very low population for one 
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of the animals, and a high one for the other, and watch the two evolve. 
When the program has run through a specificed number of 
generations, it will stop and display a question mark on the screen. 
This is so you can enter another starting population for the first 
species. Press RETURN and a second question mark will apear for the 
starting level of the second species. The development of this 
relationship will then be graphed, on top of the existing graph, so you 
can build up a number of graphs showing the effects of different 
starting populations for the predator and its prey. 


10 REM *xXSFECIES*x 
20 MODE7 
20 TNFUT’ ’’"“How many of species onme'",xX 
40 TNFUT’ ’’"And how many of species two",yY 
20 MODES 
60 GCCOL 0,2 
70 REPEAT 
80 MOVE So«x¢X4+5),50KC12-Y) 
90 FOR Z=1 TO 12 
L100 FOR T=1 TO 7 STEP 0.25 
110 FPRINT TABCL, LIS INTOXK1LO000093" " 
120 PRINT TABCL, Z>3;INTCYR1L000093" " 
130 X=X+04KX-2KXKYI KO. 04 
L4AQ YHY+OXKY-SKYIKO.OL 
130 FLOT S,S50«¢X+5) ,S50KC12~-¥) 
160 NEXTTSNEXTZ 
170 INFUT X 
180 INPUT Y 
L190 FPRINT TABCO,3) 5" "$TABCO,4)3" " 
200 UNTIL FALSE 
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Functions 


The BBC Microcomputer’s dialect of BASIC, in common with other 
BASICs, contains a number of preprogrammed functions which you 
can use in a program, or in the direct mode. As well as the 
programmed functions, you can create your own, with the DEF FN 
(DeFine FunctioN) command. In this article, we will look at the 
functions which come with the BASIC, as well as discussing the use of 
DEF FN. The discussion includes a program which uses a defined 
function to draw a picture of a bat! General functions: 


ABS — This function, ABSolute, gives the value of X, ignoring the 
sign, so that if X was — 10, ABS(X) would be 10. Similarly, if 
X was 10, ABS(X) is still 10. 


INT — The INT functions gives the whole number, or INTeger 
part of a number, giving the largest number which is not 
greater than X. If X was 2.42, INT(X) would be 2. 


RND — This is used to generate a RANDom number. If X was 20, 
RND(X) could be 13, 7, 4, 20, or any whole number between 
one and 20. RND(1) gives a random number between zero 
and one. 

SGN — This function returns the SIGN of the variable in brackets, 
the SiGN of the argument as this variable is known. If X 
equals 20, that is, X is a positive number, SGN(X) = 1. 
SGN(-20) = —1. SGN(@) = @. 


TAB — As pointed out earlier in the book, this is the TABulating 
function, which moves the PRINT position across the line the 
number of spaces indicated by the argument of the function. 
Thus, PRINT TAB(7);“£" will print the £ at the seventh 
position across from the left hand edge, while PRINT 
TAB(14);"£"" will print it 14 spaces across. The direction 
down the screen can also be specified, by adding a second 
argument after a comma within the brackets. Thus, PRINT 
TAB(4,9);"£” will print a pound sign four spaces across, and 
nine down. 


EXP — This function gives the value of e raised to the power of 
the argument, so PRINT EXP(5) will give 148.413159. 


LOG — This calculates the common logarithm of a number to base 
10, so PRINT LOG(X) where X is five will yield 0.698970004, 
whereas LN (X) yields the natural logarithm to base e, so 
PRINT LN(5) gives 1.60943791. 


SOR — This function yields the SQuare Root of a number, so 
when X is five, PRINT SOQR(X) gives 2.23606798 


Trigonometrical functions: 


SIN — This gives the sine of an angle in radians. SIN(5) yields 
— 9.958924274. 


141 


COS — Yields the cosine of an angle in radians. PRINT COS(X) 
where X equals five gives 0.283662185. 


TAN — Produces the tangent of angle X in radians, so PRINT 
TAN(X) where X equals five produces 1.37340077. 


It is likely that you won't be used to measuring angles in radians. Pl 
radians equals 180 degrees. Fortunately, the BBC Microcomputer 
has another trigonometrical function, called RAD which converts 
from degrees to radians for you. The argument of the function 
must be in radians. The DEG (DEGree) function works the other 
way, converting angles expressed in radians into degrees. 


10 REM RADIANS TO DEGREES 

20 REPEAT 

30 INFUT “ANGLE IN RADIANS" ,X 

40 PRINT 3X" RADIANS IS "DEGCX)" DEGREES" 
20 UNTIL FALSE 


Defining functions 


This feature allows you to DEFlIne functions within a program, which 
you can then call whenever you need to while running the program. 
DEF FN can save space as well as time, as complex calculations can be 
defined with a short name, and called up at will by use of this name. 


There are four things in the statement which defines the function: 


@® The word DEF 

@ The name of the function, which consists of the letters FN, 
followed by the name 

@® The argument of the function which follows the name, in 
brackets 


@ The formula, using the argument, for working out the function. 


This sounds a lot more complicated than it is in practice. Look at this 
program. 


10 REM DEFINE A FUNCTION 
20 DEF FNACZ)=Zx%Z 

30 REFEAT 

40 INFUT Z 

YO FRINT FNACZ) 

60 UNTIL FALSE 
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Line 20 defines a function A, with the argument Z as being Z squared. 
Then, whenever the program comes across FNA(Z), it will square the 
value assigned to the variable Z. You can see this in the 
demonstration. 


The next program defines a function such that the argument (which 
you enter in line 40) is multiplied by 2.178 and divided by the square 
root of the integer of itself. This function, as a moment's thought will 
show, will default if the argument is less than zero. 


10 REM DEFINE A FUNCTION 

20 REPEAT 

30 DEF FNACZ)=2.178*X2Z/SQRCINTCZ)) 
40 INFUT Z 

20 FRINT FNACZ) 

60 UNTIL FALSE 


Look to the next program — BAT — in which a function is defined in 
line 60. The function bat(B) gets the square root of the difference 
between the squares of two variables, and in the routine 120 to 210, 
uses the value H (see line 130) to determine the printing positions of 
the dots which will draw up the bat. PROC delay (a procedure), defined 
from line 270, is there simply to slow things down, and produce 
some bat-like sounds. 


10 REM "BAT" 

20 REM SHOWING DEF FN 

30 MODE? 

30 REM LINE 40 TURNS OFF 
36 REM THE CURSOR 

40 YDUZ3;8202;03503 0 

VO L=OsF=113Q=17 

60 DEF FNbat(B)=SQRCL¥XL-EXE) 
70 FRINT CHR$ (C12) CHRS(30) 
SO FRINT TABCQ,P)3°O" 

90 REFEAT 

100 FRINT TABCIG6,9)5"! 5" 
110 L=L+d1 

120 FOR B=0 TOL 

130 H=FNbsat CB) 

140 FRINT TABCQ+H, FP+B) 5°." 
150 FROCdelay 

160 PRINT TABCQ-H,F+B)5"." 
170 FROCdelay 
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180 FRINT TABCQ—H,F-B) 5". " 
190 FROCdelay 

200 PRINT TAB COQ+H,F-BD 5," 
210 NEXTE 

220 FROCdelay 

230 UNTIL L111 

240 REPEAT 

2o0 FROCdelay 

260 UNTIL FALSE 

2/7} DEF FROCdelay 

280 We TIME 

270 SOUND 1,-15,RND(6)4+249,3 
300 REPEAT 

310 UNTIL TIME-W215 

320 ENDFROC 


LOCAL VARIABLES 


it is important to ensure that all variables used within functions for 
temporary results, or passing the function’s value to the calling 
statement are defined as ‘local’. This ensures that any variables that 
you've used inside the function that are also used outside the function 
definition will be treated as different entities. Thus you can use 
variables such as X and Y in a function for their logical coordinate 
purposes, without them interfering with a possible X and Y elsewhere 
in the program. 


Jeremy Ruston, author of THE BBC MICRO REVEALED, points out 
that it is good practice to make the first line after the function 
definition a blank LOCAL statement. Then, when the function has 
been written, you can fill in the required variables into the LOCAL 
statement. This serves as a useful memory aid to prevent the 
inadvertent omission of the LOCAL statement. 


We'll be discussing the use of LOCAL variables again in a few pages 
times in the section on procedures. 


There is a variation to the kind of user defined function we've just 
discussed. Often the value you wish the function to take on cannot be 
calculated in a single line, maybe because a loop is required. In this 
case, you can use functions which are multi-line. The spirograph 
program, which follows uses a multi-line function. 
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10 
2 () 
30 
4 () 
30 
60 
70 
RO 
90 
100 
L110 
120 
130 
140 
150 
140 
170 
180 
190 
200 
21d 
220 
230 
240 
230 
2&0 
a7 U 
280 
270 
300 
310 
320 
330 
340 
250 
360 
370 
380 
370 


40 0= 


410 


ON ERROR GOTO 20 
REPEAT 

MODE 4 

VOU 29,6403 5123 
A=KND C 20094250 
BeA-RND CASO) 
C=A-~RNDCA-10) 
FROCSFIROCA,B,C) 
TIME = 0 

REPEAT UNTIL TIME>300 
UNTIL FALSE 

END 

DEF FROCSPTIROCA,E,D) 
E=D 

F=CA-E) 

(= 0 

H=FUKO.02 

KeA/ i 
N=E/PNHCF CA, ED 
L.=1 0 QKN 

MOVE FE, 0 

FOR Tel TO 

G=64+H 

FG XK 

X=FRCOS (GI+EKCOS CF) 
Y=FRSTNCGI-EXSTINCP) 
DRAWN Xs¥ 

NEXT I 

ENDFROC 

DEF FNHCR CT, J) 
LOCAL M 

REPEAT 

M=Y MOD J 

Le J 

Jae 4 

UNTIL M=0 

L 
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The differences between this function at line 330 and the normal 
functions we looked at include: 

1. It has taken two arguments, rather than a single argument. 

2. There are extra statements between the final equals sign (line 400) 
and the end of the function heading. 


Instead of using something like the ENDPROC statement, functions 
are terminated with a single equals sign assignment, line 400. Then, 
when the function is called, in line 210 of the procedure, it finds the 
highest common factor of the two numbers and returns that facts via 
the variable ‘I’. 


Try to make all routines which return a result into a fraction, and make 
the functions fairly short. It is possible to use functions which do not 
take any arguments. However, if you ever write a function which gives 
a null, or irrelevant result, used purely as a dummy, you should be 
writing a procedure. This leads us neatly into a discussion of 
procedures. 


Procedures 


In essence, procedures are subroutines which you call by name, rather 
than by line number. They have the advantage that you can use local 
variables within them, and they can be located far more quickly by the 
computer than can subroutines. The computer knows where the 
procedure is, so it does not have to search through a whole program, 
line number by line number, looking for the start of a subroutine. 


To call a procedure from within a program, you just include the line 
PROCname__of__procedure. Somewhere else in the program you 
must define the procedure, which you do by having an opening line 
DEF PROCname__of__procedure. After doing whatever you want 
done within the procedure, you end the definition section with a line 
reading ENDPROC. The following simple example should help make it 
clear. 


10 REM USING FROCEDURES 
20 REPEAT 

30 FROCprint name 

40 FROCcoumt 

90 FROCdelay 

60 FROCcount 

70 FROCdelay 


146 


80 FROCdelay 
90 UNTIL FALSE 
100 REMKKXXKKKKKX 
110 DEF FROCdelsy 
120 TIME=0 
130 REPEAT UNTIL TIME>100 
140 ENDFROC 
150 REMKKKKKK KKK 
160 DEF FROCprint name 
170 PRINT °°’°7°"My mame is hob" 
180 ENDPROC 
190 REMKXXXKKXKKKX 
200 DEF FROCcount 
210 FOR J= 1 TO 10 
2e0 FRINT J 
230 NEXT J 
240 SOUND 1,°-15,100,2 
200 ENDFPROC 


As you can see, procedures are very much like functions, but are 
somewhat easier to use in many cases, and can be far more complex 
than functions. 


In the sample program just given, the ‘real’ program — which is 
executed repeatedly while the program is running — lies within the 
master REPEAT/UNTIL loop (lines 20 to 90). The computer goes 
through this loop, calling up the procedures as it comes to them: 
PROCprint_name (note that the underline symbol can be used to link 
words in a procedure name), PROCcount, PROCdelay, PROCcount, 
PROCdelay, PROCdelay. It does not matter in which order the 
procedures are defined. 


The statements between the DEF PROCname and ENDPROC are 
executed every time the computer comes across the line PROCname. 
One great advantage of procedures Is that it leaves the ‘real program’ 
relatively short and each procedure can be written and debugged 
individually. 


Here’s the spirograph program again. Run it a few more times, then 
return to the book for a discussion on the use of the procedure 
PROCSPIRO(A,B,D). 

10 REM KRRKKK KKK KKK KKK KK KKK 

20 ON ERROR GOTO 20 

30 REPEAT 

40 MODE 4 
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140 
L350 
140 
170 
180 
190 
200 
210 
220 
230 
240 
20 
zZ60 
270 
260 
270 
300 
310 
32.0 
330 
340 
350 
360 
370 
380 
370 


4190 


PROCSPIRO as you know, draws a spirograph pattern. For the 
moment don’t worry about the (A,B,D) at the end of line 150. The 
main point to learn from it at the moment is that the procedure 
definition takes up much of the program. When you run it, an endless 


VPU 29,6403 512; 
A=KRAD C2Z0094+250 
B=A-RND CA-S0 ) 
C=A-RND CA~10) 
PROCSPIROCA,E,C) 
TIME =0 

REFEAT UNTIL TIMES 300 
UNTIL FALSE 

END 

DEF FROCSFPTROCA,B,D) 
ED 

F= CAE) 

GCG: 9 

H=FTxKO.02 

cA /E 

N=t/FNHCr CA, ED 
L=1L00%N 

MOVE Fe, 0 

FOR T=1 TO L. 

G=G6+H 


X=FRKCOS (CGI+EXCOSC(F ) 
YsPRSTINCG)-EXSINCGP) 
DRAW X,Y 

NEXT I 

ENDFROC 

DEF FNHCF COT, J) 
LOCAL M 

REFEAT 

M=T MOD J 

LT:.] 

JM 

UNTIL M=0 


400=T 
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variety of spirograph type patterns are displayed. If you get bored with 
any one pattern, just press ESCAPE to get a new one. 


Now, about the (A,B,D). The procedure in this program needs three 
pieces of information: the radius of the outer circle of the spirograph; 
the radius of the inner circle; and the distance from the centre, of the 
inner circle of the pen. It would of course have been possible to set 
three variables to the values of these constrants before executing 
PROCSPIRO. However, the BBC Microcomputer has a simple 
mechanism for passing variable values to procedures. When you write 
a procedure, you choose the variables that will be passed to it, be they 
string variables or numeric variables. You place the names of these 
variables in brackets at the end of the procedure heading as in line 15@. 
When the procedure is called, the values contained in the brackets of 
the call will be copies into the variables you specified in the procedure 
heading. If you have a variable with the same name as one of the 
variables in the procedure heading, the variable outside the procedure 
and the variable within the procedure heading are treated as seprate 
variables. Changes in the value of the variables within the procedure 
do not affect the same variable outside the procedure. However, there 
are more variables used in this procedure than the two mentioned in 
the procedure heading. It would be good if they too were LOCAL to 
the procedure. All you do as we said earlier, is specify that certain 
variables be LOCAL. 


In the spirograph program, a suitable line would be ‘155 LOCAL 
E,F,G,H,K,N,L,G,P,X,Y,l’. The variable names following the LOCAL 
statement are all those that appear on the left hand side of the 
assignment statements in the procedure. 
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Twenty One 


In this program, you and the BBC Microcomputer take it in turns to 
throw a six-sided dice as many times as you like, trying to get a total of 
21, or close to 21, without exceeding 21 (‘busting’). This is a dice 
version of Blackjack, and the computer plays very well. You go first in 
every game, entering ‘’1"’ to roll the dice again, or ‘2’ to stand, that is, 
to stay with the total you have accumulated. There are five rounds to a 
game and the winner, of course, is the player who wins the most out 
of the five rounds. 


Line 20 sets the mode, and line 3@ sends action to a procedure called 
‘initialise’. This short procedure (lines 7@ to 190) sets the two variables 
which hold the scores — SI and SM — to zero. From there, line 40 
sends the computer's attention to the procedure called game__count. 
The ‘game__count’ procedure (lines 11@ to 150) set up a loop which 
calls the procedure ‘game’ five times. As you’ve probably noticed 
earlier in this book, the BBC Microcomputer supports loop names 
which are whole words (in this case the word, as you can see, is 
‘count’). The procedure, ‘game’, which is called from within the 
procedure game__count, runs from lines 16@ to 339. 


10 REM TWENTY ONE 
20 MODE 7 
30 FROCinitislise 
40 FROCgame_ count 
50 FROCfTinele 
60 END 
706 DEF FROCinitiasalise 
80 SI=0 
90 SM=0 
100 ENDPROC 
110 DEF FPROCgame_count 
120 FOR counmt=1 TO 3 
130 FROCgame 
140 NEXT court 
150 ENDPROC 
160 DEF FROCgsme 
170 E=0;F=0 
180 FROCupdate 
190 T=TIMES REPEAT UNTIL TIME-T?S0 
200 TF E20 PRINTCHRE¢(129),3"TOTAL "FE 
210 IF E=0 FPRINTCHR$(131)3''1 TO ROLL, 
2 TO STAND"’? 


150 


220 
230 
240 


20 
260 
270 
260 
290 


300 
310 


320 
330 
340 
350 


360 


370 


380 


400 
410 
4290 
430 
440 
450 
60 
470 


490 


700 
310 
920 
330 


A=GET 
IFA=49 E=E+RND(6)? GOT0190 
IF E21 FRINT CHR$(6129)3;"YOU’ VE 
GUSTED!'": FROCend_of games ENDFROC 
PRINT’CHR$(133)03;"0K, YOU STAND ON "$E?’ “ 
G=RND(646) 
F=F +G 
T=TIMES REPEAT UNTIL TIME-T?150 
PRINT CHR$(128+G)3"I rolled a "3 
G3", s0 my total is "3F 
IF F=E FROCend_of_ game; ENDPROC 
IF F>18 OR FSE FROCend_of game; 
ENDFROC 
IF F<17 OR FYE AND Ex22 THEN 260 
ENDF ROC 
DEF FROCend_of_qame 
IF E=F AND E<22 PRINT’ CHR$(129) 3 
“DEAD HEAT" ?ST=SI+1:SM=SM+1 
IF Ex>F AND (F2E AND F“22) OR E221 
PRINT ’CHR$(129)3"I WIN' $SIT=SI+1 
IF E<>F AND F221 ORCESF AND Ex«22) 
FRINT “CHR$(133)3;"YOU WIN" $SM=SM4+1 
ENDF ROC 
DEF FROCTinsale 
FRINT’ “CHR#(130)0;3;"FINAL SCORES?" 
PRINT‘’CHR$S (129) 3"YOU!? "fSM,"ME$ "3SI7 %’ 
T=TIMESREFEAT UNTIL TIME-T>150 
IF SI=SM FPRINT'I "3 
IF SM*>SI FRINT'YOU "3 
IFSI=SM FRINT'WE BOTH "3 
PRINT CHR$(129)3; "WIN!" 
ENDFROC 
DEF FROCupdete 
PRINT ‘CHRS$ (132); "£EELELELFESEELSES LES 
LELFLEFLFLESLLSLSSE SEL ELE" ’ 
T=TIMESREPEAT UNTIL TIME-T>150 
PRINT’CHR$ (130) 3"ROUND “J count 
PRINT ’“CHR$(134>93"YOU "3SM,"ME "3ST? ” 
ENDFROC 
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The variables E and F store the human and computer scores 
respectively within a particular round of the game. The procedure 
‘update’ (lines 480 to 53) is called to draw a coloured line across the 
screen, and report how the two protaganists are going. Line 190 is a 
delay loop, setting the variable T to the value held by the computer's 
internal clock, and then passing through a REPEAT/UNTIL loop until 
half a second (TIME increments by one every hundredth of a second) 
has passed. Line 22@ waits for the player’s input, and line 239@ rolls the 
dice, and adds its value to the score (line 200) if the player has decided 
to keep rolling. 


If not, the computer checks (line 24Q) to see if the player has exceeded 
21 (and, if so, goes to the ‘end__of__game’ procedure). If the player 
has not busted, the computer acknowledges the total the human has 
decided to stick with (line 250) and proceeds to roll the dice itself. A 
short delay (line 280) comes before the computer announces the value 
it has rolled, and its total. Lines 300 to 320 check the computer’s score, 
and compare it with the player’s score, and from this comparison 
decides whether or not to roll again. 


The procedure ‘end__of__game’ (lines 340 to 380) look at the two final 
totals, and decides which player has won. After five rounds have been 
played (counted, you'll recall, by the loop in the ‘game count’ 
procedure), action goes to the ‘finale’ procedure (lines 390 to 47@) to 
find the winner of the five games. 


SEVEN-UP 


Our next program — SEVEN-UP — shows the use of procedures quite 
clearly. The game is played within the master REPEAT/UNTIL loop 
from lines 6@ to 119. 


SEVEN-UP is somewhat like checkers or draughts, except that it is 
played on a 7 X 7 board, hence the name. The pieces move as 
draughts pieces — diagonally one square, jumping over an opponent 
for capture into an empty square beyond the opponent. The main 
differences from draughts, apart from the size of the board, are that 
pieces may move forward and backward at will, there are no kings 
(every piece can move as it is a king) and there are no multiple jumps. 


The computer is the X’s moving down the screen, as you can see from 


the sample run, and you are the O’s. You move by entering the 
number of the square from which you are moving — entering the 
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number along the left-hand edge first, then the number across the top, 
then pressing RETURN; and the two number which refer to the square 
to which you are moving. 


The computer keeps track of the score, tells you the move it makes, 
and terminates the game as soon as one player manages to capture 
five of the opponent's pieces. 


The way procedures have been used in this program shows how well 
they work for a long program. Each procedure was written and 
debugged separately. In fact, the master REPEAT/UNTIL loop was 
worked out before any of the procedures were more than a name. 


10 REM Seven-Up 

20 REM showing use of procedures 
30 REM (C) Hartnell, 1982 

40 MODE? 

30 FROCinitialise 

60 REFEAT 

70 FPROCcomputer move 

$0 FROCprint board 

90 FROCHuman move 
100 FROCprint board 
110 UNTIL FALSE 
120 REMKKKK KKK KKK 
130 DEF FROChHuman move 
140 FRINT’CHRES CA 2Z8+RNDCS)03"From’$ INPUT M 


150 FRINT CHRé CLI SCHRECL2Z8+RNDCSII5" "SMS" ton"; 


160 JNRFUT NEPRINT CHR&C11)95" 
170 HCN)=79 


180 IF ABS(M-Nd=22 OR ABS CM-NO=18 HOCM+N)/2)=46% 


ME=ME+1 
190 HCM) #46 
200 ENDFROC 
710 REMKXKKKKK KK KK 
220 DEF FROCcomputer move 
230 A=76 
240 IF HCA <>88 THEN 310 
2oQ EL 
260 IF A228 AND BAS THEN 300 
270 TF A>60 AND BS2 THEN 310 
200 Q22*xZCE) 
270 IF HCAtZ¢(B)9=79 AND HCAtQ)=46 THEN 330 
300 IF B«4 Beb+1?CGOTOZ60 
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310 
320 
330 
340 
30 
360 
37 0 
380 
390 
400 
410 
42.0 
430 
440 
450 
460 
470 
430 
490) 
300 
w1d 


we0 
wo Q 
240 
wi U 
269 
wu? 0 
OQ 


CF AS1LZ A=A~-13COTO2Z40 

GOTO 350 

HC At+Z CB) =463HCA) H=463HCAt+Q) =883 Y=A+Q 
XKeASLT“LT+13 COTO 440 

Y= 

YY 

KeRND C66) +14 

LF H¢CKO<288 AND Y<100 THEN 3640 

LF Hi) “+88 THEN 470 

Tai 

IF HCK+Z¢0¢7))=46 THEN 430 

IF Ti4 TeT+13COTO410 

TF Y270 THEN 3350 

COTQ 470 

MCK+Z CTO = BB THCK) =463 XK 3 YeK+2 OT) 
ENDBFROC 

FRINT‘’’"T concede..." 

END 

Fe M KKK KOKORO OK 

DEFFROCprint poard 

FRINTTAE CO, 4) ;CHRS C1 2Z8+RNDCS) 25 
"SCORES 3 Youn" $MEE" Me-"S IT 
FRINTCHRS (130) 3 TAR CL19 31234547" 
FRINTCHR& C1319 3 TABC7 > 3 TO IORI K OK IKK! 
FOR J=70 TO 10 STEF -10 

SOUND RNDCS),-1L5,RNDC250),RNDCS) 

ABH I+] SB=HC U4?) SCeH CO I4+9) I(D=H C44) 
Reh JS) SF eH I+6) TC@H C47) 
FRINTCHRS €130)$ TAB C7) 35/10 3 CHRE C129) 


'K" SCHR (128+RND(S) 3 CHRS CA) SCHRS CED 


sO HREOC) 3 CHES (D) 3 CHR (ED SCHR CE) 


CHR (G6) SCHRS C129) 5° RK" SCHRECL3095 5/10 


what 
600 
610 
62.0 


630 
640 
650 
660 
670 


NEXT ¥ 
PRINTCHRS C131) STAB C7 ) SKK KKM KKM KKK KKK" 
PRINTCHRS C1302. 2TABRCLTLIS"1L234567" 
FRINTTAE CO, 18) {CHRE CL 2Z84+RND OS) D5 
"T moved from "3X3" ta "s¥ 
TF TT=5 OR ME=5 THEN 6350 
ENDFROC 
IF TT#S PRINT "IT wan" 
TF MES PRINT "You win" 
END 
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GEO FEM KKK KK KKK KK 

690 DEF PROCinitialise 

700 DIM H(87),Z¢4) 

710 YDUZ3}8202505030 

720 1T=0 

730 ME=0 

740 FOR A=1 TO 87 

750 IF Az77 OR A=70 OR A=40 OR A=48 
OR A=69 OR A=5O OR A=59 OR A=5B OR 
A=40 OR A=49 OR A=48 THEN 800 

760 IF A=30 OR A=38 OR A=39 OR A=ZO 
OR A=28 OR A=29 OR A=18 OR Aw19 
OR AT11 THEN 800 

770 H(Ad=ASC(.") 

780 IF &=72 OR A=74 OR A=76 OR A=61 

OR A=63 OR A=65 OR A=67 THEN H(A)#ASC('X") 
790 IF A=21 OR A=23 OR A=Z5 OR A=27 
OR A=12 OR A=14 OR A@=16 THEN H(A)=ASC("O") 

800 NEXT A 

B10 FOR T=1TO4tREAD Z(T)3NEXT 

B20 PRINTS 7/77 

830 ENDFROC 

B40 DATA ~11,-9,1159 


SCORES 3 You Me- 
L234567 
OOK OK ROK KKK OK 
LK eKeRKXeoXe RK? 
OKX ee o Xo KKG 
Ke Keo eo RE 
Kee ee ee e KF 
SKeeeeee eo KG 
£*0,0,0,0%K2 
1*K*,.0.0.0.X%1 
3K KOK OK OKO KK OK 
1234567 
I moved from 63 to 32 
From?P2o 
wa tors 
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SCORES 3 You Me-0 
LZ34567 
YOK OK OK OK OK KKK OK 
PR eXeXeX eK? 
OEKX ee Ke XKG 
Kea Keo ene o KS 
SK eee eee 2 KF 
SKeeee 0 Oe KS 
2KO20e 6 -OKZ 
1K*,.0.0,0,.X%1 
OK OKO OK OK KOK 
12343567 
I moved from 63 to 32 


SCORES 3 You-Q Me-0 
12343567 
ORO KOK OKO OK KK KK OK 
PRKeKoKe Ke RK? 
OKKX eee eo KKS 
Ke XoXo e KS 
SKe eon ee a KF 
3Keeee 0 Oe KS 
2*¥0.0..-.0*%2 
1*%.0.0.0.*1 
OK KOK KOK KKK KKK 
1234367 
I moved from 63 to 34 
Fram? 3é 
36 to?4s 
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SCORES $ You Me-Q 
1234567 
OKO KOK KK IO OK 
PRaXaeXRe Xe RK? 
O&KXs 64 eo KKS 
mK eX eX ee e KS 
AK eee ols oe K4 
3K eee eee a KS 
2*0.0..-.0%2 
1*.0.0.0.*1 
YORK ROOK KOK KKK 
12343567 
I moved from 63 to 34 


SCORES 3 Youd Me~ il 
1234567 
OKO KOK OK KKOK 
PReKaK eK eK? 
EKK ee eo eo XKSG 
Mae Xe nee ee KE 
SKe eee eo e K4 
SKe eee e Xe KS 
2*0.04+.0K2Z 
1*.0,.0.0.x*1 
2OK OOK KOK KOK OOK K 
1234567 
I moved from 34 to 36 


We'll be looking again at writing games programs shortly, but before 
that there are two important topics to discuss, how to make the most 
of the user-definable function keys, and file handling. 


157 


User-definable Function 
Keys 


When you are developing a program, you may have phrases or 
expressions which crop up many times. For example, the sequence 
‘TIME=@:REPEAT UNTIL TIME=1@' appears many times in my 
programs, to give a one tenth of a second delay. Your computer gives 
you a way of calling up these often-used expressions, at the touch of a 
key, by defining them to perform a specific function. 


You can define any of the ten red keys at the top of the keyboard. 
Some, or all, of the keys can be programmed, but the total number of 
letters being stored under the keys must not be greater than 255. 


The keys are, of course, numbered from @ to 9. To define a key, enter 
something like: *KEY 4 ‘“‘HELLO”’, where the text inside the quote 
marks is the text you want to have stored under the key. My first 
example is programmed: *KEY 2’ TIME=@:REPEAT UNTIL 
TIME= 10". This sample program shows some more possible key 
definitions: 


10 REM xx User definable key demo *x 


20 *KEY 0 “FOR T#=32 TO 126¢VDU TeNeEXT TIM" 
30 XKEY 1 “OLDIMRUNIM" 

40 XKEY 2 "MODE SIM VDU 19,3,4,0,0,01M" 

20 XKEY 3 “MODE 7|M LISTIM" 

60 *XKEY 4 "TP TA" 

70 XKEY 3 "IT ' TB" 

SO *KEY 6 "EPIC" 

90 *KEY 7 PPP TD" 

100 XKREY 8 "UT 'TE" 

LiQ KKEY 9 "Y!tr" 


120 KEY 10 "OLDIM RUNIM" 


To use this program, run it, then press any of the red keys, and note 
the result. The functions of some of them may not be immediately 
obvious. The VDU command, in this case, prints out the character 
with the ASCII code ‘T’. The net effect is to print out all the characters 
with codes between 32 and 126, which is the entire ASCII set. At the 
end of the line there is curious line character, followed by an M. The 
line is obtained with ‘shift reverse slash’. In mode 7, it appears as a 
‘double bar’, like an equals sign on its end. The line means that the next 
character is a ‘control character’. Control characters are explained 
more fully in the VDU drivers chapter. They are the characters 
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generated when you use the control key with the other keys. You may 
have used control-G, or control-O and N to turn page mode on and off. 
In fact, the ‘return’ key generates the same code as pressing 
control-M, as you can easily verify by entering control-M a few times. 
So the effect of the two end characters is to generate a single control 
character, control-M, or ‘return’. This means that when you press the 
key, you do not need to press ‘return’ afterwards, to start the printing. 


More often than not, you will find no use for any of the other control 
characters in the function keys, but control-M can often be used to 
great effect. You should be able to see that the next line, line 39, 
defines a key which types OLD and then RUN, without any 
interference from you. This is the sort of key which can be very useful, 
if you are prone to accidently press ‘BREAK’. 


The next key places you in mode 5, and makes colour 3 appear as blue, 
rather than white by using the VDU 19... command. 


The key in line 5@ is also very useful. Whenever pressed, it takes you 
back into mode 7, and automatically lists the program. 


For the moment, I'll miss out keys 4 to 9. 


You are probably a little puzzled at the *KEY1@ statement in line 120. 
This statement is redefining the ‘BREAK’ key. Whenever the BREAK 
key is pressed after the execution of this line, the computer will be 
OLDed and RUNed. If you press the BREAK key twice in succession 
you will cancel the information under the BREAK key, and all the 
others. 


To return to keys 4 to 9. You may have read the section about teletext 
graphics by now, and so you should be conversant with the idea of the 
codes from 128 onwards giving colour in mode 7. The bar, followed by 
the exclamation mark allow you to put these codes into the function 
keys. The bar with the exclamation mark adds 128 to the next control 
code so given that ‘bar’‘A”’ gives code 1, the effect of line 6@ is to 
define a key which hold the code 129, or the code for red 
alphanumerics. Thus, just press this key, and anything else you type 
on the same line will appear red. In the same way, line 11@ gives code 
of 128+6, which is 134, the code for light blue. By increasing the 
letters, you can use the graphics codes as well. It is also possible to 
mix normal text and the colour control codes in a single key. If you use 
the colour control codes outside quote marks in your programs, the 
computer will turn them into words like ‘EOR’, so beware. The codes 
will also do funny things to printers, so use them with care. 


There are many uses for function keys. Often a program will ask a 
question which is usually answered in the same way — like ‘Enter your 
name’ — so it is wise to store the answer under a function key, and 
then most of the time you only need press the key, instead of typing 
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out the whole name. Apart from ‘standard responses’, you will 
probably find they are most useful when you are writing programs. 


File handling 


File handling is reading and writing information to and from some 
medium, such as cassettes. This discussion assumes you are using 
cassettes. First of all, enter this program, then I'll discuss it, then we'll 
run it. 


10 REM x* FILE HANDLING xx 

20 XTAFES 

30 FILE=OPENOQUT C"EXAMPLE" 

40 FPRINT#FILE,"This is a series of 

axamnple pieces" 

J0 FRINT#FILE, Now is the time for 
8ll good men to come to the said 
Of the party," 

60 PRINT#FILE,"The quick brown reat 

Jumped over the tiny elephant" 

70 CLOSE#0 

30 FRINT "Now rewind the tape, and 
press ‘play’, then the space bar" 

90 D=GET 

100 FRINT "OK" 

Li0 FILE=OFENTINC"EXAMFLE" ) 

120 INFPUTéFILE,A$,66,C04% 

130 CLOSE¢FILE 

L140 FRINT AS’ES’°C4$ 

150 END 


Line 20 — Lowers the speed at which information is set to the cassette 
recorder. You can use normal speed transfers if you replace this line 
with *TAPE. | use slow tape access for file handling small quantities of 
data, for reliability in data recall. Line 30 — Tells the computer that you 
want to send some information to a file called ‘“EXAMPLE”’. The word 
in quotes is called the file name, and is equivalent to the name you give 
programs when you save them on cassette. You could use something 
like A$ instead, if the name of the file had not been decided at the time 
of writing the program. This word will appear on the screen when you 
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do a *CAT of the things of the tape you used for data storage. Having 
opened the file, and remembered its name, the computer assigns a 
unique number to it, called its channel number. This number has been 
copied into the variable ‘FILE’ in this example. The channel number is 
used for all future transactions between the computer and the file. That 
is the file name is not used again. When this line is executed, a 
message telling you to press PLAY and RECORD will be output by the 
computer. 


The use of the name ‘FILE’ is completely arbitrary — it usually makes 
more sense to make the channel number variable the same as the file 
name, to prevent confusion when you are dealing with a large number 
of files. 


Line 40 — this outputs to the file with the channel number ‘FILE’ the 
text in quotes. 

Line 5@ — Outputs more text in the same way. 

Line 69 — and a little bit more. 

Line 7@ — Tells the computer that you have finished with all your file 
handling for the moment, and so it closes all the files. You can close 
specific files by quoting the channel number, as in line 130. The 
process of closing a file is akin to tying up a parcel. The OPENOUT 
statement makes the box ready for the parcel, the PRINT hash 
statements put things in the box and the CLOSE statement ties up the 
parcel, and sends it off. 


Line 110 — Opens the same file in the same way as in line 30, except 
that it tells the computer that you are going to INput information from 
the file, and not OUTput information to it. The channel number is used 
in exactly the same way as before. 


Line 120 — Inputs, from the file with channel number ‘FILE’, three 
string variables, A$, B$ and C$. These three strings will hold the data 
output to the file above. 

Line 130 — Closes the file, as in line 7@. A closed file — when it has 
been used for input — is obviously not sealed, but it still tells the 
computer that it can stop worrying about the file. 

Line 149 — Outputs to the user all the information which was read from 
the file. 


The first thing you’ll see when you run the program is a message telling 
you to start your recorder. After a pause, while the information is sent 
to the recorder, a message telling you to rewind the cassette and to 
press the space bar is printed. When you do this, there will be another 
short pause while the information is read in from the cassette recorder, 
then the information will be printed out. 


There are several useful alterations you can make to this program. The 
first is to make the data stored in numeric, rather than string form. To 
do this, change lines 49 to 60 to something like ‘PRINT FILE, 3.14159’. 
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Now the data will be written as numeric information. The second part 
of the program is still expecting string information, so you'll need to 
alter lines 120 and 140 to use the numeric variables A, B and C. 


To show the commands described in action, here is a simple stock 
control program. | have assumed that the user is the owner of a small 
pet shop, and the program keeps track of the amount of parrot food(!) 
in stock at anyone time. It is also capable of telling when to re-order. 


10 


330 


380 


3970 
400 
410 
420 
430 
440 


450 
460 
470 


REM KKK KKK OK KO OOK OK OK 

REM Xxx Farrot shop program Xxx 

REM Copyright (C) Jeremy Ruston 

REM 1000000000000 80K KOK KOK 

ON ERROR IF ERR“:17 THEN REFORTS PRINT " at line "JERLYEND 
XTAPES 

UN=0 

REPEAT 

MODE 7 

PRINT ’’CHR$(129)3;"Select one of the following ¢" 
PRINT ’‘CHR$(132)3"1.Enter mew stock" 

FRINT ‘CHR$(132)3;"2.Deduct stock" 

FRINT ’CHR$(132)3;"3.Re-order” 

PRINT ’CHR$(132)3'"'4.Save to cassette" 

FRINT ‘CHR$(132)3;"5.Load from cassette" 

FRINT ’CHR$(6132)3"6.Print stock" 

FRINT ’CHR$(132)3"7.Computer dating" 


FRINT ’*CHR$(131)$"---—> me 
REFEAT 

AS$=GETS 

UNTIL AS>="1" AND AS<="7" 
CLS 


IF AS="1" THEN FPROCNEW_STOCK 

IF A$="2"" THEN FROCDEDUCT 

IF A$="3" THEN FROCRE_ORDER 

TF A$="4" THEN FPROCSAVE 

IF A¢="5" THEN FROCLOAD 

IF A$="6" THEN FROCPRINT 

IF A$="7" THEN FROCDATING 

UNTIL FALSE 

DEF PROCNEW_STOCK 

PRINT ’’CHR#(131)3;"The present stock level is "} 
UN’CHRS$(131);"units of feed." 


PRINT ’CHR$(131)3"What should it be ?''$ 
INPUT ""“UNS 

UN=VAL CUNS ) 

ENDPROC 

DEF PROCDEDUCT 

PRINT ’’CHR$(131)3"'The present stock level 


is "SUN‘’CHR$(131);"units of feed." 


PRINT ’CHR$(131)3"Enter the deduction "3 
INPUT “"UNS 

UN=UN-VAL CUNS$) 

ENDFPROC 

DEF FROCRE_ORDER 

IF UN*100 THEN FRINT ’ ’CHR$(131)3"No need 


to re-order." ELSE FRINT ’’CHR$(131)3"Re-order now" 


D=GET 
ENDF ROC 
DEF FROCSAVE 
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480 
490 
900 
310 
720 
330 
340 
900 
760 
370 
380 
790 


600 
610 
620 
630 
640 
650 


A=OPENOUT ("FILE") 

PRINT#A,UN 

CLOSE#A 

ENDPROC 

DEF PROCLOAD 

FRINT "Play tape" 

A=OPENIN( "FILE" ) 

INPUT#A,UN 

CLOSE#A 

ENDF ROC 

DEF PROCPRINT 

PRINT ’’CHR$(131)3"The present stock level 
is "SUN‘’CHR$(131)3;"“units of feed." 

A=CET 

ENDF ROC 

DEF FROCDATING 

PRINT ’’’’’CHR$(134)3"Come off it..." 

A=GET 

ENDPROC 


The program operates as follows: 


Line Comments... 


50 


Sets the error handler to such a way that if ‘ESCAPE’ is pressed, 


the program returns to the main menu 


70 
80 
90 
100 
190 


Selects the low cassette speed 

Starts the stock level at zero 

Starts the main program REPEAT loop 

Places the machine in mode 7 

Starts printing the menu 

Starts the REPEAT loop which continues until a valid response is 


found 


200 
210 
220 
230 
300 
310 
320 
330 
340 
350 
370 
380 
390 
400 
410 
430 
449 


Gets a character from the user 

Continues the loop until a valid response is entered 
Clears the screen, ready for each of the routines 
Starts the calling section 

Returns to the menu after the routine has executed 
PROCNEW__STOCK 

Prints the current stock level... 

then requests the new level 

Gets the new value 

Resets the stock level variable 

PROCEDEDUCT 

Prints the present stock level 

Requests the deduction 

Gets the deduction 

Updates the stock level variable 

PROCRE__ORDER 

Decides whether re-ordering is needed, and prints an appropriate 


message 


450 
460 


Gets a key press before. .. 
returning 
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470 PROCSAVE.. 

480 OPENS the file for output 

499 Outputs the present stock level 
500 Closes the file 

520 PROCLOAD 

530 Asks the user to press play 
540 Opens the file for input 

550 Gets the stock value from tape 
560 Closes the file 

580 PROCPRINT 

590 Prints the present stock level 
600 Gets a keypress 

610 Ends. 


This program is somewhat trivial, but it shows important features of 
business software, including the menu, and is virtually crashproof. 


Note that, in file handling, unlike DATA statements, you cannot load a 
numeric value from tape into a string variable. 


DRAUGHTS AND OTHER 
GAMES 


No matter why you bought your BBC Microcomputer, it is likely that 
you spend at least some time playing games with it. Writing, 
developing and adapting games programs is probably the least painful 
way which exists to improve programming skills. The first game we 
will look at in this section is draughts. One of the reasons for including 
it is so that | can explain a method of numbering boards for board 
games which make it easy for a computer to manipulate. A similar 
board-numbering system can be used as the core of a chess program, 
noughts and crosses, Nine Mens’ Morris or whatever. 


Books on how to play draughts make use of a numbering convention 
shown in the illustration. The white squares are counted off from one 
to 32. But this numbering method creates a problem when we try to 
define a move in terms of the mathematical relationship between two 
diagonally adjacent squares. The difference between the squares can 
be three, or it can be four in one direction; and in the other direction, 
the difference in the number on the square, in terms of a diagonal 
move, can be five or four. This creates problems for a computer. As 
well, there are no ‘spare’ numbers to indicate where the board ends. 
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In the 1960s, A L Samuels wrote an article for Scientific American (see 
Strachey, Christopher, ‘“Systems Analysis and Programming,” in 
‘Readings from Scientific American’, W H Freeman and Co., San 
Francisco, 1971) in which he devised a clever numbering system in 
which the difference between the diagonally adjacent squares is 
always four and five (or minus four and minus five). His system also 
allowed for numbers to be given to squares which were ‘off the board’. 





I’ve changed his numbering system a little to make it more convenient 
for a computer. In my system, the diffference between squares is 
always six or seven (or minus six and minus seven). My system, very 
simply, sets up an array and allots certain elements of the array to 
squares on the board. All other squares are understood by the 
computer to be off the board. The computer assigns a value of 99 to 
any square which is off the board, zero to any empty square, one to a 
computer's ordinary piece (two to a computer king) and minus one to 
a player’s ordinary piece (with minus two for a player’s king). This may 
sound a little complex, but it should become clear shortly. 
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Here is my numbered board. You can see that if you move from the 
top left hand corner (69) to the square diagonally below it (63), the 
difference between the two squares is minus six. Now, choose any 
other square on the board from which you can move down and to the 
left, and you'll see there is a difference of minus six between the 
square you started on and the square on which you finished. This sort 
of predictable result is relatively easy for a computer to handle. 





Move in the other direction, that is downwards and to the right, and 
you'll see the difference between the two squares is minus seven. In 
the first version of draughts in this book — KIDDIE CHECKERS — 
you'll need this numbered board as a reference, to know how to enter 
your moves. The first version of the game has no strategy to speak of 
(except to make a capture when it can, and if no capture is available, 
make a legal move), but it is still quite a fascinating program to run. 
There are no multiple jumps, although there are kings. Kings are made 
automatically. 
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To briefly explain the program, I'll go through the main sections of it. 
The subroutine starting at line 78@ sets up the starting conditions for 
the game, alloting values of 99, @, 1 and 2 for the elements of the array 
A. The board is printed from the subroutine starting at line 500. Lines 
510 to 57@ change the number @, 1, 2 and so on into the codes of the 
characters which will be used to print the board on the screen. Zero, 
for example, is changed to 32, the ASCII code for a space. Lines 600 to 
699 print out the board, using a neat routine developed by Toni Baker. 


The loop from lines 5@ to 7@ checks to see if any player’s pieces should 
be crowned. The routine from there to line 17@ checks to see if a 
capture can be made, and if it can, effects the capture with lines 200 to 
220. If not, the routine from line 25@ to line 35@ chooses squares at 
random, and, if one of its own pieces is on that square, the computer 
checks to see if it can make a move. If it can, it does. If it has not got 
one of its pieces, or there is no possible move, and the computer has 
chosen less that 1880 random numbers, it goes back to look again. If, 
in 1090 random selections, the computer has not found a move it can 
make, it concedes defeat (line 360). 
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After printing the board again (with the subroutine called from line 
400) the computer accepts the player’s move, which is entered (line 
420) as two numbers. The first is the number of the square the player is 
moving from, and the second is the square he or she is moving to. Line 
460 ‘erases’ a computer's piece if the player has captured it. 


10 KEM xXKiddie Checkers 
20 REM (CC) Hartnell 1982 
30 GOSUE 7890 

41) Q=032Z=24 

50 FOR G69 TO 72 


70 NEXT G 

80 TF ACZ>=99 OR ACZI“A1 THEN 170 
90 IF 2228 AND ACZI=1 ACZI=2 

100 Y=] 


L10 TF ACZEeXCY} 9720 AND ACZ+ZKCACV I 2220 Q=XCY) 


120 IF ACZ>=2 AND ACZ-XCV¥II=0 AND 
ACZ—-2RXCY)2=09 Qee-XCY) 

130 IF Q2>0 AND Z+2*Q>23 THEN 200 

140 Q=0 

130 IF Y=2 GOTO 170 

160 Y=2:GOTO1LO 

170 Z=Z+1 

180 IF Z<73 GOTO 80 

190 IF Q=0 THEN 250 

200 ACZ+Q)=0 

210 ACZ+2xXQ)=A(Z) 

220 ACZ)=0 

230 GOSUE 300 

240 GOTO410 

250 U=0 

260 Z=Z23+RND (C49) 

270 Us+1 

230 IF ACZ)=1 OR ACZ)=2 THEN 300 

290 GOTOZ40 

300 Y=1 

S10 IF ACZ+tXCYI=0 Q=XCY) 

320 IF ACZI=2 AND ACZ-XCY)3=0 Q=-X¢CY) 

330 IF Q<>0 THEN 380 

340 IF Y=i Y=23GOT0310 

350 IF U«i000 THEN 260 
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360 
370 
380 
390 


wi0 
wad 
oO 
240 
wet 
~O0 
v7 Q 
780 
J? Q 
600 
610 
620 
630 
640 
650 
660 
670 
680 
670 
700 
710 
720 
730 
740 
730 
760 


PRINT “You win" 

END 

ACZ+Q #=ACZ) 

ACZI=0 

COSUES00 

SOUND 1,°-15,100,3 

TINFUT D,E 

FRINT CHRé C113" " 
ACE eACD) 

ACD) =O 

IF ABS(D-EX>7 ACD+CINTCE-D)/2) >=0 
GOSUE Soo 

COTO40 

IF Qe>0 THEN 290 
FRINT ¢ ¢ ? 

FOR M=24 TO 72 

TF ACM)#1 ACMI=79 

IF ACMI=2 ACM) =33 

IF ACM)=0 ACM) =32 

IF ACM)=-1 ACM)=88 

IF ACMI=-2 ACM) =36 

NEXT 

FRINT CHRE¢309°%% CHIZ,Z4+0 
PRINT 

FOR K=0 TO 3 

FOR J=0 TO 3 

PRINT CHR (255) ;CHRECAC72-J-1L3XKK) > 5 
NEXT J 

FRINT 

FOR J=0 TO 3 

FRINT CHR (CAC66~-J-13KK) ) SCHREC 255 > § 
NEXT J 

FRINT 

NEXT K 

FOR M=24 TO 72 

IF ACM)=79 ACM)=1 

IF ACM)=33 ACM) =Z 

IF ACM)=32 ACM)=0 

IF ACM)=88 ACM) =—1 

IF ACM)=36 ACM) =-2 

NEXT 
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77) RETURN 

760 DIMACE9).XC2) s=0 

7PQ XCLIwKGITX CZ e-7? 

800 FOR Zell TO 99 

S10 ACZI=H9Y 

820 Tr 2273 AND ZeSS AND NOTCZ=67 OR Z=48 
Ok Z=60 OR Z=61 OR 262) ACZ)=1 

830 Tr 2254 AND Z>42 AND NOT ¢(Z=47 OR Z=48 
OR 2249) ACZ)=9 

S40 TF 2241 AND Z>23 AND NOT(Z=34 OR Z=35 

OR 736 OR Z=28 OR Z=Z9) ACZ) =] 

S50 NEXT 2 

840 Cé="My moves " 

870 CLS 

860 COSUE S00 

890 RETURN 


Next we have a ‘proper’ draughts game. That is, the next program is a 
development of the proceeding one. In this version, there are multiple 
jumps. The computer will make its multiple jumps automaticaly. After 
you make a capture, you'll be asked ‘’Can you jump again?”’ Just press 
RETURN if you cannot, and the game will continue. If you can jump 
again, press any key, before you press return and you'll be offered 
another move. You enter your move by typing in the letter at the 
bottom of the square which is on the line on which, your piece is 
sitting, then the number along the right hand side, then a comma, then 
the letter and number co-ordinate of the square you're moving to. 
There are clear player prompts within the program, so you should have 
little trouble in playing it. You'll find this version of the game puts up a 
far stronger defence than the other program, and is most reluctant to 
move into danger. There are three ways the game can end. The 
computer will either concede defeat, even if there are still possible 
moves, if it judges the situation is hopeless; or it will claim victory on 
capturing all you pieces, or give you the game when you capture all of 
its pieces. although you should not have too much trouble beating this 
program (which plays like a better-than-average beginner), it is still a 
most entertaining program to run, and a study of how it decides which 
moves to make should stand you in good stead when you write your 
own games of strategy. 


10 REMKKKK KKK KKK KKK KKK KKK KK XK 
20 REM KXDraughtsx 

30 REM (C) Hartnell, 1982 

40 REMKKKKKK KKK KKK KK KKK KKK KK 


20 PROCinitialise:MODE7 


170 


180 
190 
200 
210 
220 
230 
240 
20 
260 
27 (0 
280 
270 


300 
310 
320 
330 
340 
330 
360 
370 
380 
390 


REM XKXMaster REPEAT/UNTIL&*x 
REPEAT 3Q=0%Z=24 
REM *XCreate human kings 
FOR G=69 TO 723IF ACGI=-1 ACG)=-2 
NEXT G 
FROCprint board 
REM *XComputer locks for capturexx 
IF ACZ)=99 OR ACZI“1 THEN 220 
IF Z228 AND ACZI=1 ACZI=2Z 
Y=l 
TF ACZ+XCY)9<0 AND ACZ+2KOXCY) 2020 Q=excy) 
IF ACZ)=2 AND ACZ-XCY)9<0 AND 
ACZ-2eXCYI)=0 THEN Q=-xX¢yY) 
IF Q2>0 AND Z2+2xKQ>23 THEN 250 
Q= 
LF Y=2 THEN 2270 
Y=Z3COTO160 
Z2Zti 
IF Z273 THEN 130 
IF Q=0 THEN 340 
ACZ+Q)=03ACZ4+2*KQ)=AZ)7ACZ)=0 
Z2=Z+Z2kKQ3 COM=COM+1 ST PROCprint_ board 
Q=O9p Y= 
IF ACZ*XCYI9=50 AND ACZ4+2KCXCY)) 920 Q=XCY)d 
IF ACZ)=2 AND ACZ—-XCY))<0 
AND A(Z-2*eXCY))=0 THEN Q=-XCY) 
IF Q2>0 AND Z+2x*Q>23 THEN 250 
IF Y=1 Y=Z23COTO 280 
GOTO 480 
REM XXComputer looks for nom-capture 
Y= 
Z=Z3tRND (49) SU=U4+1 
IF ACZ)=1 OR ACZ)I=2 THEN 380 
COTO 330 
Y= 
IF ACZ+XCY¥)0=0 AND CACZ+ZKXCY) DS -1 


AND ACZ+2eX CY) 4195-1 AND ACZ+ZKXCY)~-1)> 

-~1 OR U>600) Q=XCY) 

400 IF ACZ>=2 AND ACZ-XCY))=0 AND 
CACZ—-2&XCY) 2-1 AND ACZ—ZeXCY)+4+1)5-1 AND 
ACZ—-Z2eX(Y)-1)>—-1 OR US600) Q=-X¢CY) 

410 IF Q<:0 THEN 450 
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10 


we 0 


40 


wt O 


LF Yl YeZ?GCOTO 390 
IF U<1000 THEN 350 
FRINT "I concede the gqame!"SEND 
ACZ+tQBACZISACZI=0 
FROCprint hoard 
FRINT’ ’‘TABCS) SCHRE C1LZ8+RNDCS) > 3 
"Enter your move” 
FRINT TAB (4) 3 CHRS$C1LZ8+RNDCS) > 5 
"ag AS, EBB separate" 
FRINTTAE (7) S;CHRS (CL ZS8+RND CS) ) 5 
"hy 3 comma" 
SOUND 1,-15,100,3 
INFUT AtS,BS3 FOR W=1 TO 23Z=0 
IF W=1 C$=A$ 
IF We? C#=B$ 
Z=- 24K (C$="G9") 25K (CHE"EG")— 
26K (C$2="C9")-27K(CH$="AP")-3OK 
(C$="HB")-31K( C$ ="FE")-B2K (CH= 
"DS'")-33K(CH$="BG")-37K(CH="G7") 


~3BX(C$="E7" )~-39K (C$="C7")-40K CH=" 


A7")~ 
"D6" )-46« (C$2"B6")-SOX(C$=2"C4") 


43% (C$="H6" > -44KCCH="F 6") -45K 0 CH= 


~60 IF Zi>0 THEN S80 
870 Z=-S1X(C$="E4") -S2K (C$="C4")-53 
KC C$="A4")~-S6KCC$="H3"-S7KCCS=E"F 3") 
~S8xX( C8 ="D3")-S9K(C$="EB")-63x (CH= 
"G2" )-64XK (C$="E2")-65xK (C$="C2")-4646* 
C(C$="AZ")-69RK( CH=" HI" )-7OKC CHEF LL") 
7FAKCCH$="D1" 9-7 2K (C$="B1") 


380 
370 
600 
610 


620 
630 
640 
650 
660 


IF W=1 D=Z 
IF Wee E=Z 
NEXT W 
PRINT CHRS C11) 5CHRS C11); 
CHRS C11) 3CHRS(C11) SCHREC11) 
FOR T=1TO 4 
PRINT " " 
NEXT 
ACE =ACD)I SACD) =0 
IF ABS(D-E)>7 ACD+CINTCE-D)/2))=0% 


HUM=HUM+1 
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670 FROCprint board 
680 IF ABS(D-E)>7 PRINT’? 2 INFUT 
"Can you jump again?'U¢i 
FRINT CHRS¢11) 3" ng 
IF U$<s"" THEN 520 
4690 UNTIL HUM=12 OR COM=12 
700 IF HUM=12 FRINT' You win, human!" SEND 
710 IF COM=12 FPRINT'I have beaten you!" SEND 
720 REM XKPrint board procedurexx 
730 DEF FROCprint board 
740 FOR M=24 TO 72 
750 ACM) =-79KCACM)=1)-39K CACM) =2)-32x 
CACM)=0)-88xX CACM) =—-1)-36KC ACM) =-Z2)-99K 


CACMI=99) 
760 NEXTM 
770 FRINT CHRS(30)°7 7" 


7830 IF Z22Z+Q FRINT CHR#C11>93CHRS 
(128+RND(S5)93'"MYy score is ";COM; 
", and yours is "3JHUM 
770 Te-ZtFOR K=0 TO S3tFOR J=0 TO 3 
S800 PRINT CHR (255) SCHR CAC72Z-J-1L3KK) > 3 
Bi0 NEXT It T=T4+1 
820 FRINT$ CHRS (1 28+RND(S) > SINTC CU4K) /294T 
830 FOR J=0 TO 3 
840 FRINT CHRS(AC66-J-13KK) >) SCHRS (255) 3 
850 NEXT S$ T=T+1 
8460 PRINTS CHRS$ (CI Z8+RND(S)) PINTO CU4K9 /294T 
870 NEXT K 
880 FRINT "ABCDEFCH" 
890 FOR M=24 TO 72 
900 ACM) =—-CACM) =79)-2K CACM) =33)-O0KCACM) 
=32794+ (CACM) =88)+2K( ACM) =36)-99ORK CACM) =99 ) 
910 NEXTM 
920 ENDFROC 
930 REM KXInitislisation procedurexx 
940 DEF FROCinitialise 
950 CLS{DIM AC99),XCZIXCL H-GEX CZ) =-7 
960 FOR Z=1 TO 99%ACZ)=99 
970 IF 2273 AND Z>55 AND NOT(Z=67 OR Z=68 
OR Z=60 OR Z=61 OR Z=62) ACZ)=1 
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780 IF Z<54 AND Z>42 AND NOT(2=47 
OR Z=48 OR Z=49) AC(Z)=0 
770 IF 2241 AND Z>23 AND NOT(Z=34 OR 7=35 
OR Z=36 OR Z=28 OR Z=29) ACZ)=—1 
1000 NEXT Z 
1010 YVDUZ338202505;0;0 
1020 COM=0?HUM=0 2 ENDFPROC 


Whereas the computer plays only like a fairly good beginner at 
draughts, it manages a much stronger game in the following program, 
‘Othello’. Othello is a registered name, copyright Mine of Information, 
1 Francis Avenue, St Albans. The game is a development of Reversi, 
which was invented in the 1880s, with a restriction in the opening 
moves. 


Reversi was played on a standard draughts board, using pieces which 
were doublesided, black on one side, red on the other. R C Bell 
explains, in his book Discovering Old Board Games (Shire Publications 
Ltd., Aylesbury, 1980), that black begins the game by placing a piece 
black side up one of the four central squares on the empty board. Red 
replies by placing his or her first red side on another central square. 
‘‘The four squares are covered in the first four turns of play and then 
the players continue alternately, placing their pieces on a square 
adjacent to one occupied by an enemy piece,”’ says Bell. (Incidentally, 
this book, and others by Bell, are a great source of games ideas for 
computer programs. ) 


Any enemy pieces in a straight line between the latest piece placed and 
another one of the player’s pieces is then flipped over to show the 
colour of the player. The winner is the player with the most pieces 
when the board is covered, or when neither player may move. 


A computer programmer from Chichester, G J Suggett, has pointed 
out to me that most published Othello programs evaluate the best 
move for the computer to make “on the basis of maximising the 
number of captures made with a possible extra score given to certain 
positions, such as the corners. In fact, Mr Suggett said, “‘in the early 
stages of the game, positional play is far more important than making 
a large number of captures.”’ In this version of Othello, great weight is 
placed upon positional play. The program was originally written in 
Microsoft by Graham Charlton of Romford, and adapted by me for the 
BBC Microcomputer. 


10 CLS 

20 X=ASC("X")O=ASC("O") 
30 DIM A(10,10) 

40 R=0 

90 FOR B=1TO10 

60 FOR C=1TO10 
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70 IF BC>1 AND C<>1 AND B¢>10 AND C<>10 THEN A(B,C)=ASC(".") 
80 NEXT C 

90 NEXT B 

100 A(S,5)=X 

110 A(6,6)=X 

120 A(6,5)=O 

130 A(5,6)=O0 

140 P=0 

150 PRINT 

160 PRINT "DO YOU WANT TO GO" 
170 PRINT"FIRST (1-YES,2-NO)" 
180 INPUT W 

190 CLS 

200 GOSUB 720 

210 IF W=1 THEN 600 

220 PRINT"MY MOVE " 

230 S=O 

240 T=X 

250 H=0 

260 FOR A=2 TO 9 

270 FOR B=2 TO 9 

280 IF A(A,B)<>46 THEN 340 

290 Q=0 

300 FOR C=-1 TO 1 

310 FOR D=-1 TO 1 

320 K=0 

330 F=A 

340 G=B 

390 IF A(F+C,G+D)<>S THEN 400 
360 K=K+1 

370 F=F+C 

380 G=G+D 

390 GOTO 350 

400 IF A(F+C,G+D)<>T THEN 420 
410 Q=QtK 

420 NEXT D 

430 NEXT C 

440 IF A=Z OR A=9 THEN Q=Q#zZ 
450 IF B=z OR B=9 THEN Q=Q#2Z 
460 IF A=3 OR A=S THEN Q=Q/2Z 
470 IF B=3 OR B=8 THEN Q=Q/Z 
480 IF (A=2 OR A=9) AND (B=3 OR B=8) THEN Q=Q/2 
490 IF (A=3 OR A=8) AND (B=2 OR B=9) THEN Q=Q/Z 
300 IF Q<H OR Q=0 OR (RND(1)90.3 AND Q=H) THEN 540 
910 H=Q 

320 M=A 

330 N=B 

240 NEXT B 

350 NEXT A 

360 IF H=0 AND R=0 THEN 1100 
370 IF H=0 THEN 590 

580 GOSUB 930 

3590 GOSUB 720 

600 INPUT" YOUR GO ",R 

610 S=X 
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620 T=O;:REM LETTER O 

630 REM 0 TO PASS 

640 IF R=0 THEN 700 

650 IF R<11 OR R288 THEN 600 
660 M=INT(R/10)+1 

670 N=R-10#INT(R/10)+1 

680 IF A(M,N)X>ASC(".") THEN GOTO 600 
690 GOSUB 930 

700 GOSUB 720 

710 GOTO 220 

720 PRINT TAB(O,0); 

730 C=0 

740 H=0 

750 PRINT+PRINT TAB(10);"OTHELLO":PRINT 
760 PRINT TAB(10)}"12345678" 
770 FOR B=Z TO 9 

780 PRINT B-1} 

790 FOR D=2 TO 9 

800 PRINT CHR$(A(B,D))} 

810 IF A(B,D)=X THEN C=C+1 

820 IF A(B,D)=O THEN H=H+1 

830 NEXT D 

840 PRINT STRS(B-1) 

850 NEXT B 

860 PRINT TAB(10);"12345678" 
870 PRINT 

880 PRINT"I HAVE "jC;"_" 

$90 PRINT 

900 PRINT" YOU HAVE "3H;" “ 
910 PRINT 

920 RETURN 

930 FOR C=-1 TO 1 

940 FOR D=-1 TO 1 

950 F=M 

960 G=N 

970 IF A(F+C,G+D)<>S THEN 1010 
980 F=F+C 

990 G=G+D 

1000 GOTO 970 

1010 IF A(F+C,G+D)<>T THEN 1070 
1020 A(F,G)=T 

1030 IF M=F AND N=G THEN 1070 
1040 F=F-C 

1050 G=G-D 

1060 GOTO 1020 

1070 NEXT D 

1080 NEXT C 

1090 RETURN 

1100 GOSUB 720 

1110 IF C>H THEN PRINT"I WON ";C3","5H 
1120 IF CCH THEN PRINT" YOU WON "3C3","3H 
1130 IF H=C THEN PRINT"IT’S A DRAW!" 
1140 END 
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We finally have a number of programs which you may like to try on 
your BBC Microcomputer. There will be no ‘commentary’ with them, 
as they are primarily designed for use, rather than as teaching aids. 
However, you are sure to discover many new ideas for programs by 
reading through the listings, and working out how they do what they 
do. The first program is one of the old classics of computer games, a 
Lunar Lander. Listings of other programs will follow this one, without 
introduction. 


10 REM XLunar Landerx 

20 M=03T=03S=03H=4000+RND( 1000) 

30 F=S000/RND(3) ¢Q=-173bB=1 

40 CLS$VDU2Z3382023030390 

270 MODE7?:GOTO2Z10 

60 REMKXXXXXKKKXKKXKKKX 

70 PRINT CHR$(128+RND(6))3'"C+ is towards Lunad'3 
80 INPUT Z:IF Z<-30 OR Z>30 THEN 80 

90 PRINT CHR$(128+RND(6))3"For how many seconds" 3 
100 INFUT ES E=E+1 
110 PRINT TAB(O,15);" men 


120 T=Tt+E 
130 S=S+10+3aEx((Z+1)/EB) 
140 F=F-3xEXAES(ZxXRND(3) ) 
150 IF F<«<500 FPRINT TAB(20,6) 3 CHR$(128+RND(46)) 3 "FUEL 
LOW" $SOUND1 ,-15,250,255$SOUND2,-15,240, 255 

160 H=H-EXS 
170 IF H<20 AND H=-10 AND S<12 THEN 430 
180 IF H<-10 OR Fei THEN 370 
190 IF RND(10>=5 AND M<>2 THEN COSUB 480 
200 FROCdelay 
210 PRINT TABC(O,8) ;CHR$(129+M) } "HEIGHT ABOVE SURFACE? “INTCH)" 
220 FROCdelay 
230 IF Q<>-17 THEN Q=Q-RND(14) 
240 IF Q<0 AND Q*-17 THEN 370 
200 IF Q<>-17 PRINT CHR$(128+RND(46))3"OXYGEN LEFT? "Q" " 
260 PROCdelay 
270 PRINTCHRS(129+M) $"VELOCITY? "INT(S)" " 
280 IF 8<>1 PRINT CHRS$(129+M) 5;“WARNING - THRUST ERRATIC" 
290 FROCdelay 
300 FPRINT CHR$(1294M) 3"FUEL LEFT$ "INTCF)" " 
310 PROCdelay 
320 PRINT CHR$(1294+M)3"FLIGHT TIME: ''T 
330 FOR A=1i TO 2Z08FRINT CHR$(128+RND(6))5"K"S NEXT 
340 PRINT TAEB( 0,15) §CHR$(1284+RND(46))3"THRUST (-30 TO 30)" 
350 GQATO 70 
360 REM KKK KKK KKK XK 
370 REPEAT 
380 PRINT TABCRND (4) 3; CHRS$ (128+RND(46) > § 'XXCRASHKX 

YOU HIT THE SURFACE AT 
390 FRINT TABCRND(7))$CHR$(128+RND(46)) SABS(S)" 

METRES FER SECOND" 

400 SOUND 0,-15,RND(3),RND(10) 
410 UNTIL FALSE 
4270 REMKKKK KK MK KKK 
430 REPEAT 
440 PRINT CHR$(134)3"SUCCESSFUL LANDING" ’ 
450 PRINT CHR$(134)3"FINAL VELOCITY: "AEBS(S) 
460 UNTIL FALSE 
470 REM OKO OK OOK KK 
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480 
490 
300 
310 
320 
930 
340 


v0 
360 
370 
980 
790 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 


10 

20 

30 

40 

70 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
250 
270 
280 
290 
300 


CLS $M=M+1 3U=RND( 32000) 

FOR V=i TO 4 

PRINT ’CHR$(1284+RND(6))$3"HOUSTON, WE HAVE A PROBLEM!" 

SOUND 0,-15,RND(4),RND(10) 

PRINT TABCRND(20)) 3CHRS(129) 3 "DANGER! =" 

NEXT 

PRINT ’“CHR$(129) $} "MALFUNCTION. "$CHRS(130) 5 "USE 
COMPUTER ACCESS" 

PRINT TABCS) 3;CHR$(130)3"CODE "U" FOR DETAILS" 

INFUT V 

CLS 

IF U<?V S=INT(SKH/S) ?GOTO370 

F=RND (2) 

ON F GOSUB 670,700 

FRINT ’CHRS(128+RND(46))3"PRESS ANY KEY TO RETURN TO FLIGHT" 

AS=CET$ 

CLS 

PROCdelay 

RETURN 

REM KKK KK RK KKK KKK 

Q=101+RND(19) 

PRINT TAB(CO,9) ;CHR$(130)3;"O0XYGEN METER UNRELIABLE" 

RETURN 

B=B+RNDC3) 

PRINT TAB(0,9) 3;CHR$(130)3"THRUST CONTROL ERRATIC" 

RETURN 

REMX KKK KKK 

DEF FROCdelay 

TIME=0SREPEAT UNTIL TIME=50 

SOUND 3,-15,RND(254),2 

ENDF ROC 


REM MASTERTRIO 

REM ‘Mastermind’ WITH 3 DIGITS 
MODE 7SPRINT’ /’ ’” 

DIM AC3),B(3) 

FORK Z=1 TO 3 

ACZ)=RND(9) 

NEXT Z 

IF AC1)=ACZ2) OR AC1)=AC3) OR ACZ)=AC3) THEN 50 
D=100%AC1)+10*A(2)+A3) 

FOR C=1 TO 10 

PRINT CHRS(129+RNDCS) > SCHRS (157) 5 CHRS$ (129) 3 
PRINT "WHAT IS YOUR GUESS NO. "3C}3 
SOUND 1,-15,RND(10)+50,2 

INPUT X 

BC1)=INTCX/100) 
B¢2)=INT(¢CX-100%B(1))/10) 
B(C3)=X-100%6(1)-10*B(2) 

IF D=X THEN 430 

W=0 

N=0 

FOR E=1 TO 3 

IF ACE)“<>BC(E) THEN 250 

N=N+1 

ACE)=0 

NEXT E 

FOR F=1 TO 3 

IF ACF)=0 THEN 320 

FOR E=1 TO 3 

IF BCF<>2ACE) THEN 310 

W=W+1 
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350 


> 
30 
40 
50 
60 
70 


NEXT E 

NEXT F 

AC1)=INT(D/100) 

ACZ)=INTC(CD-100KA(1))/10) 
AC3)=D-100KAC1)-10XAC2) 

SOUND 2,-15,RND(20)+235,2 

FRINT CHRS(129)3"YOU SCORED "3N§$" BLACKS "3 
PRINT "AND "3W3" WHITES" 

NEXT C 

PRINT CHRS$ (129) $CHRS$ (157) 5; CHRS$( 131) $3 

PRINT "MY NUMBER WAS "$AC1)3A(2)3AC3) 

END 

PRINT CHR$(129) s;CHR$ (157) §CHRS$ (131); "CONGRATULATIONS" 
END 


REM ‘MATCHSTICKS’ 
M=03E=0 

Z=146+RND (7) 

IF 2«KINT(Z/2)=Z THEN 30 
H=2+RND (2) 


REPEAT 

CLS 

FRINT ’’CHR$(132)$3"MAXIMUM TO TAKE "3H 
GOSUE 320 

IF E70 FRINT ’CHR$(130);"YOU TOOK "3E 


IF Es0 PRINT CHR$(129)3" I TOOK "3Q’ 
FOR K=1 TO Z 

FRINT CHR$(129) $CHRS (157) ;CHRSCIZ9+RND(S) D5 
FRINT K;3 

IF RND(1)>0.46 PRINT 

NEXT K 

GOSUE 320 

PRINT "HOW MANY WILL YOU TAKE"; 

INPUT E 

IF E>H OR Ex1 THEN 190 

Z=Z-E 

GOSUE 320 

IF Z“1 PRINT “YOU TOOK THE LAST ONE" 

IF Z#1 FRINT "SO I WIN"SEND 

Q=Z-1-INT CCZ-1)/ CH4+1) KX CH+1)-INTCRND C1) %2)4+INT CRND(1)*2) 
IF Q2=1 OR Q=H THEN 250 

GOSUE 320 

Z=Z-Q 

IF Z=0 THEN PRINT CHR$(129)3;"IT TOOK "3Q 
IF Z=0 THEN FRINT "SO YOU WIN"SEND 
UNTIL FALSE 

FOR T=1 TO 4 

PRINT 

NEXT T 

RETURN 


REM “FERSONAL ACCOUNTS’ 

REM ADAPTED FROM ZX80 FROGRAM 
REM WRITTEN EY RON JONES 

DIM AC6) 

Eis 0 

GOSUE 290 

INFUT "ANY CHANGES CY OR NO" ,2Z4 
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2g 
70 
100 
110 
120 
139 
LQ 
150 
LQ 
170 
130 
LY O 


nel 
230 
faaal) 
Kowal) 
260 
2/70 
200 
27g 
300 
340 
320 
320 
346 
uO 
349 
37 0 
380 
390 
400 
410 
4720 
430 
440 
430 
440 
470 
4G0 
490 


Tk Zé="N" THEN 150 

TNEUT "NUMBER 

Tr Keé OR Kel THEN 90 

TNPUT "NEN AMOQUNTUVE 

Te KRe& THEN Eek 

ACK DE 

GOTO 606 

INPUT "ENTER SALARY" ,$S 

GOSUE 290 

Regge T+k 

PRINT ““BALANCE $°5R 

fags: Fret 

PRINT 

PRINT "ENTER 2 TO END; 2 TO SET BALANCE TO" 
FRINT "ZERO, OF 3 TO RUN AGAIN, STARTING" 
FRINT "WITH CURRENT BALANCE" 
INPUT Q 

TF G21 OR Q253 THEN 240 

Le oO) THEN END 

LPF @=2 THEN SO 

TF 2=3 THEN 6&0 

Ta ff 

CLS 

PRINT “?"RERSONAL ACCOUNTS" 
PRINT ““"FREVIOUS BALANCE "56 
PRINT 

FOR Fei TO 6 

FRINT FRU O'S 

ON F GOSUE 420,440,460,480,500,520 
FRINT " SACK)? 

T=T+A ch 3 

NEAT F 

PRINT 

Ri TURN 

PRINT “CHEQUES QUT" $ 

RE TURN 

FRIST “CREDIT CARDS"; 

RE TURN 

FRINT "RATES"; 

RE TURN 

FRINT "MORTGAGE" 5 

RE TURN 
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Y00 FRINT "STANDING ORDERS" 3 
J10 RETURN 

w20 PRINT “MONEY IN'$ 

Y30 RETURN 


10 
20 


30 


REM DIGITAL CLOCK 

FRINT “ENTER HOURS" 
INFUT H 

PRINT H}" ENTER MINUTES" 
INFUT M 

PRINT H3" ENTER SECONDS" 
INFUT $ 

MODE? 


90 REPEAT 
100 FPRINTTABCO,10) SCHRES C129) SCHRS C157 9 5 
110 FRINT TABCLS) sCHRE CI S19 gH" 5 


12 


TF M210 THEN FRINT "OQ"; 


130 FRINT 343" "5 

140 TF S210 THEN FRINT "0"; 
150 FRINT 33" " 

160 TIME=0 

170 REPEAT UNTIL TIME=98 
180 S=$+1 

190 IF S=60 THEN M=M+l 
200 IF $=60 THEN S=0 

210 IF M=60 THEN H=H+l 
220 TF M=60 THEN M=0 

230 IF H=13 THEN H=1 

240 UNTIL FALSE 


REM INTEREST ON A LOAN 

CLS 

INFUT ’’’’*" PERCENTAGE INTEREST RATE"“E 
INPUT ‘’’"PRINCIPAL ($)"P 

INPUT ’“LENGTH OF LOAN (YEARS) '"Y 
Y=S365"Y 

INFUT ’"AND DAYS"D 

D=D+VY 

E=INT(PXD/36500xXE+0.9) 

PRINT ’’’’"INTEREST IS $"$E 

PRINT ‘’’"TOTAL (PRINCIPAL PLUS" 
PRINT “INTEREST) IS $"$P+E 
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100 
110 
Lz 0 
130 
140 
150 
140 
170 
180 
190 
#09 
£10 
22.0 
230 
240 
20 


REM TEMPERATURE CONVERSION 

INFUT ’"“ENTER HIGHEST TEMPERATURE IN F"A 
INPUT ’“AND LOWEST''B 

INPUT’ “"ENTER INCREMENT'C 

PRINT CHK$(131)5"F"$ TABC10935"C"$ TAB( 20) § “"K" 
FOR T=B TO At+C STEP C 


M=INT (5% (T-32)/9) 
K=M+273 
PRINT CHR$(129) $INT(T) $TAB(10) $M$ TAB(20) $K 
NEXT T 
REM STOCK RECORD 
MODE? 
TNPUT °“"HOW MANY CATEGORIES",A 


DIM A$CA,10) 

DIM Z2¢A) 

FOR C=1 TO A 

PRINT "ENTER THE NAME OF CATEGORY “ic 
INPUT M4 

ABCC, LO =MS 

NEXT C 

REPEAT 

CLS 

PRINT ¢ ¢% ¢ 

FOR C=1 TO A 

PRINT C$" "SASCC,1093" "$200) 
NEXT C 

PRINT “"NUMBER OF CATEGORY?" 
PRINT ."-99 TO END" 

INPUT D 

IF D>A THEN 190 

IF D=-99 THEN END 

PRINT A$(D,10),"VALUE"} 
INPUT OE 

Z£¢D =HZ°CDI +E 

UNTIL FALSE 


10 REM SQUARE ROOTS BY ITERATION 

20 MODE7 

30 INFUT’’"NUMBER TO FIND ROOT OF",B 
40 IF &<=0 THEN 30 

30 A=RND(B) 

60 X=B/A 

70 Y=(X+A)/2 

80 PRINT ‘’Y 

90 IF A=Y THEN 120 

100 A=Y 

110 GOTO 60 

120 FRINT ’’"THE SQUARE ROOT OF "3B3" IS "“3Y 
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10 
20 
30 
40 
20 
60 
70 
80 
90 
100 
110 
120 


REM 29K KK KKK KOKO KKK OK OK OKOK 
REM French bathrooms 

REM (C) 1982 Jeremy Ruston 
REM KKK KKK KKK KKK KKK KKK 
DIM X(4),Y¢C4),XD(4),YD¢4) 
MODE 4 

REM KKK KKK KK KKK KKK KKK KKK 
FOR X=0 TO 1249 STEF 250 

FOR Y=0 TO 999 STEP 250 

XM=X DIV 250 

YM=Y DIV 250 

IF (XM MOD Z2)=(YM MOD 2) THEN SMU= 


0.1 ELSE SMU=0.9 


130 


PROCTWIRL (X4+250 ,Y+t250 pX+Z50 Vo Xo Vs 


Xe¥+Z50,SMU) 


140 
150 
1640 
170 
180 


NEXT Y 

NEXT X 

END 

REM XKKKK KKK KKK KKK KHK MK KK KK KKK 

DEF FROCTWIRL (X1,71,X%2,Y2,X3,Y3,X4 


»¥4,SMU) 


190 
200 
210 
220 
230 
240 
230 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
380 


390° 


XCOL)=X1LSXCZ)=XZIEXC3B)=XBEXC 4) =X4 
YCLIBREVISY CZ RYZSY CS =RYSLY (4) =74 
LOCAL RMU,IT,J,NJ 

RMU=1-SMU 

FOR I=1 TO 21 

MOVE X(4),Y(4) 

FOR J=1 TO 4 

DRAW XC J), YC) 

NJ=(J MOD 4)+1 

XD (J) =RMUKX CJ) +SMUKX CONS) 

YOC J) =RMUXY (J +SMUKY CNY) 

NEXT J 

FOR J=1 TO 4 

XCJI=XDOCI) 

YC J=YD CI) 

NEXT J 

NEXT I 

ENDFROC 

REM Change 230 to? 

FOR I=1 TO 21 STEP 2’ 
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REM CARD 21 

MODE? 

PRINT *7? 

M=0 

GOTO 270 

CAZRND C11) 

TF Cé=11 AND D4+CAS21 CA=1 
D=D+CA 

CF Me] PRINT "A "§CA3" HAS BEEN DEALT" 
MaM+ id 

RE TURN 

CAZKND CLL) 

TF Cé=11 AND B+CAS2Z1 CA=1 
BB+ lA 

RE TURN 

FRINT "ANOTHER CARD (C1) OR WILL" 
FRINT “YOU STAND ¢€00'3 

INFUT G 

KxFX 15,0 

RE. TURN 

FRINT “7? "ANOTHER GAME, CARD-SHARF' $ 
INFUT AS 

M= 0 

TF ASe<> "NO" OR ASSN" THEN 270 
FRINT “OK, THANKS FOR FLAYING" 
NID 

D=0 

Ee Q 

GOSUE 60 

Hea 

GOSUE 60 

A= A 

COSUE 120 

R=C Ay 

GCOSUE 120 

Fee 

Eé=""THE COMPUTER HAS " 

Cé="THE HUMAN HAS " 

RINT B&3H 

FRINT CSsE3" AND "SF 

FRINT " TOTALLING "SE+F 
D=H+A 
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430 bek+F 

440 TF Be2l THEN S20 

400 GOSUE 140 

440 TF G=1 THEN S20 

470 IF Dei? THEN 600 

S80 IF Deseedd THEN PRINT B&3D 

490 TPF Bese2d THEN FRINT C36 

“00 IF B&D AND Bestel THEN FRINT 
"SO THIS ROUND ITS A DRAW" 

VwLO TF Boel OF Ds2i THEN 210 


| So 
md 


0 Tr BSD THEN PRINT " YOU WIN" 


veg TF Dek THEN FRINT " IT WIN" 
“40 GOTO 210 

veld GOSUE 120 

V6 FRINT C&sCAag' TOTALS "GE 

we TF Boel THEN FRINT "Soeo> BUSTED" 
WeQ TF Be2)l THEN 210 

2370 GOTO 450 

400 FRINT BS 3D 

640 FOR Y=1 TO 9QQ3NEXT Y¥ 

620 GOSUE 60 

630 FRINT "TOTAL TS NOW "3D 

640 FOR Y=l TO SO03NEXT Y 

650 TF Be21 THEN PRINT "Se>> BUSTED" 
4660 IF De2i AND Be=21 PRINT "SO YOU WIN” 
670 TF Del? THEN 620 

680 GOTO 480 


REM 9TH HOLE 
MODE 7 

C=0 

FOR Z=1i1 TO 9:SC=0 

J=RND(12)-1 

Q=RND(3)+2 

IF Q=5 Q$="FIVE" 

IF Q=4 Q$="FOUR" 

IF Q=3 Q$="THREE" 

PRINT ’’ “CHR$(128+RND(46))3"###HOLE NUMBER "5Z3 "883" 
PRINT /¢ “CHR$(129) 3 CHR$ (157) 3 CHRS (151) $ 

PRINT "HOLE DIFFICULTY IS "3;Q$’’’’ 

GOSUEB 370 

PRINT CHRS$(139)3’"STROKE “$SINPUT A 

IF J*26 A=-A 

J=JtINTCA/RND(Q) ) 

GOSUEB 370 

SC=SC+1 

PRINT CHR$ (131) ;CHRS$(157) §CHR$(129) 3"AFTER THAT "5 
PRINT "STROKE YOUR SCORE IS "3SC’ 
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210 
220 
230 
240 
250 
2460 
270 
280 
290 
300 
310 
320 
330 
340 
350 
340 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
$40 
550 
560 
570 
580 
590 
600 
610 
620 
630 


PRINT 

IF J<>26 THEN 140 

GOSUE 450 

C=C+SC 

PRINT ‘CHR$(128+RND(6))$"SCORE FOR "$Z} 
PRINT " HOLES IS "3C 

FOR M=1 TO 10003NEXT 

FOR L=1 TO 203FOR Y=1 TOL 

FRINT " "$3SOUND 18,-15,200-L,1 
SOUND 19,-15,200-Y,1 

NEXT Y 

PRINT CHR$(128+RND(4))$CHR$(157)3$ 
PRINT CHR$(128+RND(46))3"STAND BY" 
NEXT L 

NEXT Z 

GOTO 550 

IF J>30 THEN J=30 

FOR K=1 TO J-2 

PRINT " "3 

NEXT K 

PRINT CHR$(129)$"o0" 

PRINT CHRS ¢ 130 ) ; HWAAAAANAAAAAAAA 3 
PRINT WAAAAAAAAAA AAAAAAAAAN 
RETURN 

FOR L=1 TO 30 

PRINT CHR$(128+RND(4) 3 

PRINT “YOU DID IT IN "3SC3" STROKES" 
SOUND 17,-15,200-L,2 

SOUND 18,-15,10*L,2 

NEXT L 

PRINT 


PRINT CHR r¢ 130 ) ; NWAAAANAAAAAAAAAAAAAAAAAAAAT ; 


PRINT CHRS(129)3 "0" $CHRS (130) ¢ AAAAAAA" 
RETURN 

FRINT "END OF THAT ROUND" 

PRINT 

FRINT "YOU SCORED "3C 


FRINT "YOUR AVERAGE WAS "SZ INT(C/9) 
PRINT 

PRINT "DO YOU WANT ANOTHER ROUND?" 
INFUT TS 


IF T$<>"NO" THEN RUN 
FRINT "OK, THANKS FOR FLAYING, CHAMP" 


10 REM HIDE ’N’ SEEK 

20 REM This is just the raw bones of 
30 REM & program to ‘’hide’ somethine 
40 REM om @ 10 XK 10 grid. You are 

~0 REM sure to be able to improve it. 
60 MODE? 

70 AZENDC10) 

80 B=-RNDC10) 

90 FOR Z=1 TO 10 

100 FRINT 

110 FRINT “"YOU HAVE JUST "f141--23 
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120 
130 


FRINT " SECONDS LEFT" 
FRINT “WHERE TS THE GOLD?" 
INFUT C,D 

FRINT " 1234567890" 

TF A=C AND B=D THEN 400 
FOR Fei TO C4 

FRINT $F 

NEAT F 

PRINT $F 3 

FOR Fel TO D-d 

FRINT "5 

NEAT F 

PRINT "x" 

FOR F=C-1 TO 10 

PRINT $F 

NEXT F 

PRINT "XT IS NOT AT "303" "3D 
PRINT “"HERE ITS Aa CLUES" 
FRINT "TRY TO THE "3 

TP As THEN FRINT "SOUTH"; 
Tr AfC THEN FRINT "NORTH"; 
IF BD THEN FRINT "WEST" 
TF BSD THEN FRINT "EAST" 


PRINT "TIME TS UF. THE GOLD "3 
RINT "WAS AT meagn "ee 


PRINT "WELL DONE, YOUVE FOUND "; 
PRINT "&" $ LOOOXRNDC2Z0) 
END 


REM XPiano dementiax 

MODE7 

FOR J=255 TO 0 STEP -1i 

SOUND 17,-15,J5,1 

PRINT CHR$(128+RND(4) ) 3 CHRS (157); 

NEXT J 

FOR J=0 TO 255 

SOUND 17,-15,J,1 

NEXT J 

REPEAT 

A=RND (47 9 +43 

M=-53«(A=90)-61«(A=88) -—69K(A=467 )-73K(A=86) 
-81*%(A=66) -89« (A=78) -97K( A=77 )-101K(A=44) 
IF M=0 THEN 110 
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140 PRINT CHRS$(128+RND(46) ) $;CHR$ (157) 5 CHRS (128+RND(6))3M,M,M 
150 FOR J=-15 TO -1i STEP RND(3) 

160 SOUND 1,J,M,RND(3) 

170 SOUND 2,JU,M,RND(5) 

180 NEXT J 

190 UNTIL RND(10)=1 

200 FRINT CHRS$C1Z8+RND(4) ) 5 "SRSSE" 
210 FOR J=-15 TO -1 

220 SOUND 1,35,53,5 

230 NEXT J 

240 FOR J=1 TO 255 STEP RND(10) 

250 SOUND 17,-15,d,2 

260 SOUND 18,-15,255-J,2 

270 SOUND 19,-15,J3/2,2 

280 FRINT CHR$(128+RND(6) ) $CHRS(157 >) $ 
290 NEXT J 

300 GOTO 30 


Improving your 
programs 


You’ve probably gone through several stages as you develop your 
programming skills. After the first, brief struggle with BASIC, you 
suddenly discovered you could, after a fashion, write programs which 
ran. They may have looked pretty convoluted when you looked at their 
listings, and friends may have needed a detailed explanation from you 
before they knew what to do when running the programs, but as least 
they worked. 


There comes a stage when you decide you’re going to have to do 
better than that. But while you may be vaguely dissatisfied with your 
programs, you may not have much idea of how to go about becoming 
a better programmer. Here are a few guidelines which may help. 


First, have a look at a printout of your listing. Programs linked by REM 
statements look better, and are easier to understand when you return 
to them after a break. Of course, shortage of memory may preclude 
the luxury of REM statements, but if you have the memory, you should 
include them. REM statements filled just with a line of asterisks can 
prove quite useful in separating each major section of the program. 
Examine any unconditional GOTO critically. Too many GOTOs 
leapfrogging over other parts of the program show a lack of directed 
thinking, make programs run more slowly, and can make them almost 
impossible to decipher. 


It is very good programming practice, as | have suggested earlier, to 
have each of the main sections of the program (like the one which 
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assigns the variables at the beginning of a run, the one which prints 
out the board, the one which works out who has won, and so on) in 
separate subroutines or procedures. The beginning of your program 
could well look like this: 


1@ REM *NAME OF PROGRAM* 
20 REM ASSIGN VARIABLES 
30 GOSUB 9000 

49 REM PRINT BOARD 

50 GOSUB 8000 

60 REM HUMAN’S MOVE 

70 GOSUB 7000 

88 REM COMPUTER’S MOVE 
99 GOSUB 6000 
108 REM CHECK IF GAME OVER 
118 GOSUB 5000 
120 GOTO 50 


As you can see, this ensures that the program actually cycles through 
a continuous loop over and over again, until the program terminates 
with the ““CHECK IF GAME OVER” subroutine. You can actually write 
a series of lines like these before you start writing anything else, and 
even before you know how you are going to actually perform some of 
the tasks within the subroutine. 


Then you can write the program module by module, making sure that 
each module works before going onto the next. It is relatively easy to 
debug a program like this, and far simpler to keep an image of ‘where 
everything is’ when you do this, then when you just allow a program 
to, more or less, write itself. 


The listing should be, then, as transparent as you can make it, both for 
your own present debugging, and for future understanding of what bit 
carries out what task. The output of the program should also look 
good. Again, if memory is not a problem, make sure the display is clear 
and uncluttered. Use blank PRINT lines to space it out, use rules and 
graphic symbols or whatever to break the screen up into logical 
sections and so on. Once you have a program working satisfactorily, it 
is worth spending extra time on the subroutine which controls the 
display. Here you'll appreciate again the advantage of having all the 
display handling in one subroutine, as it will be easy to know where to 
go to enhance the display. 


Of course, as we live in a far from ideal world, it is unlikely that every 
single display command can be contained within one subroutine, but if 
you aim towards that end, it will make subsequent working upon the 
program much easier than it might be otherwise. 


The ‘structured’ approach outlined also helps you realise another aim 
of a good program — to do what you expected it to, every time you 
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run it. You should write a program so that, even if you are not present 
when a friend decides to run it for the first time, it performs as 
expected. This means not only, of course, that it is properly 
debugged, but that the instructions (which can be contained within 
the ASSIGN VARIABLES subroutine or procedure) are clear and 
complete. 


The user prompts should be clear, so the human operators know 
whether to enter a number, a series of numbers, a word, a date, a 
mixture of letters and numbers, and so on. The program has to assume 
that the operator is a complete idiot, and that no matter how clearly 
the instructions and/or user prompts are stated, he or she will attempt 
to do things the wrong way. A classic example of this is the entering of 
dates. ‘Mug traps’, as the routines to reject erroneous input from the 
operator are called, should be set up to reject a date being entered in a 
form which the computer cannot understand (such as the month 
before the day) or which is clearly wrong (such as entered the 32nd of 
February). You should ensure that, no matter what the operator does, 
the program does not crash or otherwise misbehave. This can happen 
if the program was expecting a numerical input, and the operator tried 
to enter a letter or a word, or hit RETURN without entering anything at 
all. You can get around this by always allowing a string input, going 
back for another input if the empty string is entered, and taking the 
ASC, VAL or CODE of the input to turn it into numerical form. 


Documentation is an area of programming which is often neglected. It 
is virtually essential for a program which is intended for publication, 
and most advisable for long programs which you’ve written for 
yourself. At the least, the documentation should include a list of 
variables, an explanation of the program structure (which should be 
easy to do if you’ve followed the ‘modular’ approach advised earlier), 
and brief instructions, especially if the program itself does not contain 
instructions. A sample run showing the kind of inputs, and the nature 
and layout of the program outputs, is also useful. 


Your program should run as quickly as possible. Every time there is a 
subroutine or GOTO call, the computer must search through the whole 
program, line by line, to find the specified line number so placing often 
used subroutines near the beginning of the program will speed them 
up fractionally. That is why the instructions are often placed right at 
the end. You do not want the computer to have to wade through the 
initialisation and instruction lines every time it has been told to GOTO 
or GOSUB looking for the destination, or return line number. Use 
procedures rather than subroutines if you can as these run more 
quickly then subroutines. Use variables instead of constants. The 
computer takes a little more time to change a constant into a number 
than it does for it to look up a value in an array, for example. Define 
often-used variables first, so they will occupy the early slots in the 
varibles store. The computer will search the store only until it finds the 
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variable it wants, so there is no point in getting it to look at more 
entries than absolutely necessary. 


Finally, and this is by far the best way to test a program you've written, 
call in a friend and sit him or her in front of the TV, and tell them to 
press RUN, without you saying anything, and just sit back and watch. 
If there is any hesitation, or the program hiccups, you have more work 
to do. 


In summary, then: 


@ Use REM statements 

@® Make program listing neat and logical 

@ Use structured programming techniques, controlling the program 
through a loop of subroutine calls, or procedures 

@Examine unconditional GOTO commands critically, using 
REPEAT/UNTIL instead if it is appropriate 

@® Make output display attractive and clear 

@® Ensure all user prompts are clear 

@ Add ‘mugtraps’ on all user input 

@® Document your programs, even if you just make a list of variables 
@ Make your program run as quickly as possible 

@ Test programs by allowing someone unfamiliar with the program to 
run it. 


Good programming. 
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LET YOUR BBC MICRO TEACH YOU TO PROGRAM 


This book by best-selling author Tim Hartnell is the ideal companion 
for you if the BBC Microcomputer is your first computer. It takes you, 
step by simple step, through programming in BBC BASIC — with a 
number of worthwhile programs — and then goes further, giving you 
leads to develop and expand your programming skills in the coming 
months. 


Once you've mastered the fundamentals of BASIC, this book will help 
you understand and apply such things as the use of the ENVELOPE 
command, how to master the graphics and use them to best effect, 
the use of VDU drivers, graphic windows, how to define your own 
characters, the use of functions and procedures, and ways of writing 
better programs. There are a number of utility and games programs in 
the book, ready to run. 


Tim Hartnell is the author of anumber of books, including “GETTING 
ACQUAINTED WITH YOUR 2X81” and “SYMPHONY FORA 
MELANCHOLY COMPUTER”. He is a frequent contributor to computer 
magazines, and edits the magazine “ZX COMPUTING”. 


Another great book from 
Interface Publications 


